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CUUVA: 



IDENTIFICA C AO DAS CURVAS 
UMA ELIPSE NO COTIDIANO 



NADO PARABOLICO 



CIRCULOS E POLIGONOS 



AFICOS FEITOS DE CURVAS 



No primeiro artigo sobre secoes 
cdnicas, mostramos como desenhar 
circulos, elipses, parabolas e 
hiperboles no micro. Agora, veremos 
como incorpora-los aos programas. 



Como vimos em alguns exemplos do 
artigo anterior (pagina 801), as curvas 
conicas estao no nosso dia-a-dia, por to- 
da a pane, e muitas vezes nem chega- 
mos a percebe-las. Mas nao e dificil 
identifica-las: bast a recorrer as equa- 
coes. Se, ao calcularmos a posicao de 
um objeto em movimento, verificarmos 
que sua coordenada X e dada por 
A*COS T e sua coordenada Y, por 
A*SIN T (onde A e uma distlncia fixa 
e T, um angulo que varia), ficara abso- 
lutamente evidente que estamos iidan- 
do com a equacao de um circulo. 

Por outro lado, algumas vezes e mais 
facil artalisar o modo como algo se mo- 
ve do que calcular suas equacSes. Se, 
por exemplo, observarmos que a distan- 
cia de um objeto a um ponto e sempre 
constante, saberemos que se trata de um 
circulo, sem precisarmos calcular sua 
equacao. Esse tipo de analise tambem 
se aplica a outras curvas. 



ELIPSE, PARABOLA. HIPERBOLE 



Uma elipse nao difere muito de um 
circulo e, assim como este, e de Facil 
identificacao. Eia e desenhada quando 



A medida que a escada escorrega, n haldc 
preso a ela tra^a parte de uma elipse. 




urn ponto se move de tal maneira que 
a sua distancia a um dos focos somada 
a sua distancia ao outro foco permane- 
ce sempre constante. 

Uma parabola, por sua vez, e dese- 
nhada quando um ponto se move de lal 
modo que a sua distancia a um ponto 
fixo e igual a distancia perpendicular a 
uma linha fixa. O ponto fixo correspon- 
de ao foco da parabola. A linha fixa, 
chamada de diretriz, e uma reta perpen- 
dicular ao eixo de sirnetria da parabola 
e que nao corta a mesma — ou seja, es- 
ta fora dela. Como ja vimos, a distan- 
cia da diretriz a um ponto qualquer da 
curva e igual a distancia desse mesmo 
ponto ate o foco. 

A descricao da hiperbole tambem £ 
simples: ela e obtida quando um ponto 
se move e a distancia dele a um ponto 
fixo menos sua distancia a outro ponto 
fixo permanece constante, Os pontos fi- 
xes, um em cada metade da hiperbole, 
sao seus focos. 

Os programas apresentados a seguir 
demonstram os dois metodos de identi- 
ficacao de curvas — isto e, o de equa- 
cdes e o de observacao do comporta- 
mento de um ponto em movimento, 
Uma vez percebida a presenca de um 
certo tipo de curva num programa, fica 
bem mais facil utiliza-lo. 



UMA ESCADA ESCORREGANDO 



O primeiro programa mostra parte de 
uma elipse obtida durante um evento co- 
mum; uma escada escorregando numa 
parede. Observamos que urn balde pre- 
so a escada traca parte de uma elipse a 
medida que esta escorrega. 

Suponhamos que a escada tern um 
comprimento de oitocentas unidades e 
que o balde esta preso a quinhentas uni- 
dades do pe da escada. A posicao do 
balde sera X = -3(MJ*COS (Sngulo) e 
Y = 500*SIN (angulo), o que sabemos 
corresponder a equacao de uma elipse. 



SEE] 



10 
15 

20 
30 
40 
50 
60 
70 
80 
A) 
(C * A) 

no x = 



/ 45 



HOME :C = ATN (1) 

HGR : HC6LOR= 3 

GOSUB 250 

GOSUB 50 

GOTO 40 

REM ESCADA 

FOB A = 80 TO STEP - 

FOR T = TO 250: NEXT 

HPLOT 230 - 150 * COS (C * 

150 TO 228,150 - 150 * SIN 



10 



120 
130 



V - 90 



56 * COS 
* SIN (C 



{C 



A) 



A) 



GOSUB 190 



140 PRINT CHR$ (7) 

150 NEXT 

190 REM BALDE 

200 IF t - THEN VTAB (22): 

HTAB (22) : PRINT "SPLASH" 

210 HPLOT 22B + X.154 - Y TO 2 

2B + X.150 - Y 

220 HPLOT TO 232 

230 HPLOT TO 232 

240 HPLOT TO 22B 



X.150 
X.154 

X.154 



Y 
Y 

Y : 



HPLOT 

HPLOT 

HPLOT 
RETURN 
250 REM PAREDE 
260 OX = 230 

270 HPLOT OX.O TO OX, 150 
280 HPLOT OX + 8.0 TO OX + 8.1 
50 

290 HPLOT OX + 16.0 TO OX + 16 
,150 

300 FOR Y - TO 150 STEP 10: 
HPLOT OX,Y TO OX + 16.Y 
310 NEXT 
320 RETURN 



10 LET wall=240: LET ladder= 

60: LET bueket-190 

20 GOSUB wall 

30 GOSUB ladder 

35 FLASH 

4 GOTO 40 

60 FOR a=80 TO STEP -10 

70 PAUSE 25: LET r = a/UB0/PI) 

80 PLOT ox-150*COS (r).oy 

90 DRAW ox- (ox-150*COS (r) ) , 

oy+150*SIN (r) 
110 LET x=-60*COS (r) 
120 LET y-90*SIN (r) 
130 GOSUB bucket 
140 SOUND .l,a/2-15 
150 NEXT a 

160 FLASH 1; PRINT AT 10,5; "SP 
LASH" 

170 RETURN 

190 PLOT ox+x,oy+y+5: DRAW 0,- 
2 

200 FOR n*oy+y TO oy+y+2; PLOT 
ox+x~2,n: DRAW 4,0 
210 NEXT n 
220 RETURN 

240 BORDER 0: INK 7: PAPER 0: 
CLS 

250 LET ox-232: LET oy-8 
260 FOR y=l TO 20: PRINT 
PAPER 2: AT y, 29;" 
2 70 NEXT y 

280 FOR y=oy-l TO 165 STEP 16: 
PLOT ox.y 

290 DRAW 16,0: PLOT ox,y+6: 
DRAW 16,0: PLOT ox+8 , y+8 : DRAW 
0,8 

300 NEXT Y 

310 PLOT INK 4;ox+8»oy-l: 
DRAW INK 4; -232,0 
320 RETURN 



Wi 



10 COLOR 15,4,5:SCREEN2 

15 C*ATNU)/45 



20 GOSUB 230 :REM<parede> 

30 GOSUB 50:REM<eecada> 

40 GOTO 40 

50 FOR AN-80 TO STEP-lQ 

90 LINE(230-150*COS(C*AN) ,150)- 

(228.150-150*SIN(C*AN)} .15 

110 X— 56*COS(C*AN) 

120 Y-90«SIN(C*AN) 

130 GOSUB 200:REM<balde> 

140 FORT-0 TO 500: NEXT 

150 NEXT 

160 RETURN 

200 IF Y»0 THEN Y-4 :DBAW"BH160, 

156C1S16LDRDLBR2U2RDLBEBRD2RBRU 

2RDNLDBRRULURBRD2BRUNLUC4" 

210 LINE<228+X,154-Y)-(232+X,15 

0-Y) ,15,BF 

220 RETURN 

230 LINE(230,0)-(255.150) ,6,BF 

250 FOR Y-0 TO 150 STEP 10 

260 LINE(230,Y)-(255,Y) ,10 

270 NEXT 




I 



290 FOB Tt-0 TO 150 STEP 20 

290 LINE£243.Y)-(243,Y+10) ,10 

100 NEXT 

310 LINE(0,151)-(255,191) ,3,BF 

320 RETURN 



Ei 



10 FMODI 3.1 -PCLS: SCREEN 1.0:C- 

ATNUJ/45 

20 GOSUB 230 

30 GOSUB 50 

40 GOTO 40 

50 FOR AN-80 TO STEP -10 

70 COLOR 4.2 

90 LINE <230-150*COS(C*AN) .150) - 

(228, 150-150*SIN(C*AN) } .PRESET 

110 X— 56*COS(C*AN} 

120 Y-90*SIN(C*AN) 

130 GOSUB 200 

140 FOR T-0 TO 500: NEXT 



150 NEXT 

160 RETURN 

200 IF V = THEN Y=4 : DRAWBM160 , 

15 6C2S16LDRDLBR2U2RDLBEBRD2RBRU 

2RDNLDBRRULURBRD2BRUNLUC4* 

210 LINE(228+X,154-YJ-(232+X,15 

0-Y) .PSET.BF 

220 RETURN 

230 LINE(230,0)-{255. 150) , PSET, 

BF 

240 COLOR 2 

250 FOR Y-=0 TO 150 STEP 10 

260 LINE(230,Y)-(255,V) , PSET 

270 NEXT 

200 FOR Y-0 TO 150 STEP 20 

290 LINE(243,Y)-(243,¥+10) .PSET 

300 NEXT 

310 COLOR 3:LINE{0, 151)- (.255,19 

1) .PSET.BF 

320 RETURN 

O programa compoe-se de tres roti- 
nas principals — a que desenha a pare- 
de, a que desenha a escada e a que de- 




senha o balde, A parede e tracada pri- 
meiro, entre as linhas 230 (250 no Ap- 
ple) e 320. Depois, a rotina entre as li- 
nhas 50 e 160 desenha a escada em no- 
ve posicoes diferentes a intervalos de 10 
graus. Essa rotina chama a seguinte, que 
fica entre as linhas 190 e 220 (240 no Ap- 
ple) e tem a funcao de desenhar um bal- 
de para cada posicao da escada. As 
coordenadas do balde sao calculadas nas 
linhas 110 e 120, e, como vimos, elas 
formam a equacao de uma elipse. As 
posicoes anteriores do balde e da esca- 
da nao sao apagadas, para que se per- 
ceba mais facilmente que o caminho per- 
corrido pelo balde realmer.te faz parte 
de uma elipse. 



NAD0 PARAB0LIC0 



Imagine o que acontece quando um 
nadador tenta atravessar um rio de 
aguas rapidas. Mesmo que ele tenha co- 
mo alvo um determinado ponto na mar- 
gem oposta, a correnteza certamente o 
desviara um pouco do seu destino. Ca- 
so a veiocidade da correnteza se equipa- 
re a do nadador, a distancia do desvio 
sera igual a metade da largura do rio, 
e efeito conjunto das duas velocida- 
des fara com que o nadador percorra 
um caminho parabolico. 

Para entendermos a razao por que is- 
so ocorre, devemos pensar em termos de 
veiocidade. O nadador visa sempre um 
ponto na outra margem e nada com uma 
veiocidade V, enquanto o rio corre pa- 
ralelamente a margem, com a mesma ve- 
iocidade V. Combinando os dois valo- 
res, obtemos a veiocidade real do nada- 
dor em relacao a margem. 

Esse raciocinio baseia-se na regra do 
paralelogramo de forcas, empregada em 
problemas de ffsica. Ela e usada na 
construcao de uma parabola, onde a dis- 
tancia do nadador ao foco (ponto que 
ele visa na outra margem) e igual a dis- 



Ura nadador que se move com a 
veiocidade da correnteza do rio percorre 
uma trajet6ria parabolica. 




tancia dele ate a diretriz (distancia per- 
corrida pelo rio no mesmo intervalo de 
tempo). 



H1E1 



10 HGR2 : HCOLOR- 3 

20 GOSUB SO 

30 GOSUB 200 

40 GOTO 40 

50 REM DESENHA RIO 

70 FOR LY - TO 38: HPLOT 0,L 

Y T0 279.LY: NEXT 

BO FOR LY - 153 TO 191: HPLOT 

O.LY TO 279. LY: NEXT 

90 RETURN 

200 FOR T = - 1 TO - . 05 STE 

P .1 

210 X - - 60 * T * T:Y - 120 * 

T 
220 AN - ATN ({X + 60) / ~ Y) 

230 GOSUB 300 

240 FX • INT (130 + Y) : HPLOT 

FX.95 TO FX + 8.95 

245 HPLOT FX + 4,91 TO FX + 8, 

95 

250 HPLOT TO FX + 4.99 

255 NEXT 

260 RETURN 

300 XC - 187 + X:YC - 33 - Y 

310 XX - 0:YY - 6: GOSUB 420 

320 HPLOT INT {XC + XT) . INT 

(YC + YT) 

330 RESTORE 

340 FOR N - 1 TO 16 

350 READ XX, YY 

360 GOSUB 420 

370 HPLOT TO XC + XT + . 5 . YC 

- YT + .5 

380 NEXT 

390 RETURN 

410 DATA 0,6,-6,0,0,6,6.0,0,6 

,0,14 ,6. 12, 0,14. -6, 1 2, 0.14, 0,18 




CONDIC6ES de visualizacao 
Varias providencias podem ser to- 
madas para aperfeicoar as condicfies 
de visualizacao do video. Par exemplo, 
o esforco visual sera diminufdo com a 
uso de caracteres claros sobre fundo 
escuro. Assim, procure "sintonizar" 
pouco a pouco os controles de contras- 
te e intensidade, ate melhorar a def in*- 
cao dos caracteres. 

Experimente posicionar sua mesa de 
trabalho de tal maneira que a tela nao 
reflita a luz proveniente de janelas ou 
de tuminarias. Incline ligeiramente a te- 
la, dirigindo os reflexos para longe de 
seus olhos. Tambem e aconselhavet 
cobrir a te!a com um filtro anti-reflexivo 
(a venda em lojas de computadores). 



,2.18,2,22,-2,22,-2,16,0,16 
420 XT - XX * COS (AN) - YY * 

SIN (AN) 
430 YT - XX * SIN (AN) + YY * 

COS (AN) 
440 RETURN 



10 BORDER 0: PAPER 0: INK 7: 
CLS 

20 REM no 

60 LET parabola-190: LET Bwim 

mer=300: LET rotate-430 

70 LET a3-" 

FT 

80 FOR n=-0 TO 3 

90 PRINT PAPER 4;aS: NEXT n 
100 FOR n=4 TO 18 
110 PRINT PAPER l;aS: NEXT n 
140 PRINT PAPER 2; INK 6; AT 3 
,1S;"F";AT 19,15;"A";AT 3,22;" 
O" 

150 GOSUB parabola 
160 STOP 

190 LET ox = 187: LET oyl50 
200 FOR t- = l TO -0.05 STEP 0.1 
210 LET x»-60*(t*t): LET Y-120 
*t 

220 LET a-ATN ( (n+60) /-y) 
230 PLOT ox-60+y ,oy-60: DRAW 
INK 7;10,0: DRAW INK 7;-5,~5: 
DRAW INK 7:0,10: DRAW INK 7; 
5,-5 

240 GOSUB swimmer 
250 NEXT t 
260 RETURN 

300 LET ox=ox+x: LET oy=oy+y 
310 LET x=0: LET y=6 
320 GOSUB rotate 
330 PLOT ox+xt,oy+yt 
340 RESTORE 410 
350 FOR n-1 TO 17 
360 READ x.y 
370 GOSUB rotate 
380 DPAU xt.yt 
390 NEXT n 

400 LET ox-188: LET oy=150: 
RETURN 

410 DATA -3,0,0,3.3.0,0,-3.-2, 
0,0.-3.-4,0,0,4,0,-4,8,0,0,4,0 
.-4,-4,0.0.-4,-4,-4,4,4,4,-4 
430 LET xt=x*COS (a)-y*SIN (a) 
440 LET yt=x*SJN (a}+y*COS (a) 
45 RETURN 



Vfi 



10 COLOR 15,9,9: SCREEN2 
20 GOSUB 50 

30 GOSUB 200 

40 GOTO 40 

50 LINE{0, 38}- (255,153) .5. BF 

60 DRAWBM123, 15BC15S16ND2RDNLD 

If 

70 DRAW"BM123,25NRDNRD" 

BO DRAWBM180, 25RD2LU2" 

90 RETURN 

200 FOR T=-l TO -.05 STEP .1 

210 X=-60*T*T:Y-120*T 

220 AN-ATN( (X+60J/-Y) 



2 30 GOSUB 300 

240 DRAW"BM"+STR$(INT(130+Y) )+" 

,95"+"C9R2NGH" 

250 NEXT 

260 RETURN 

300 XC-187+X: YC-33-Y 

310 XX-0:YY-6: GOSUB 420 

320 DRAW"BM"+STH$(INT(XC+XT))+* 

,»+STR${INT(YC-YT)) 

330 RESTORE 

340 FOR N=l TO 16 

350 READ XX. YY 

360 GOSUB 420 

370 LINE-(XC+XT+.5.YC-YT+.S) .15 

380 NEXT 
390 RETURN 

410 DATA 0,6,-6,0,0,6,6,0,0,6,0 
,14,6,12,0,14,-6.12,0.14.0.18,2 
,18,2,22,-2.22,-2,18.0,18 
420 XT=XX*COS(AN)-YY*3IN(AN) 
430 YT-XX*SIN(AN)+YY*COS(AN) 
440 RETURN 



o 



10 PMODE 3,1 :PCL.S: SCREEN 1.0 

20 GOSUB 50 

30 GOSUB 200 

40 GOTO 40 

50 COLOR 3.2:LINE<0,38>-{255.15 

3) .PSET.BF 

60 DRAWBM123, 1 5BC4S16ND2RDNLD" 

70 DRAWBM123.25NRDNHD" 

80 DRAW B BM1B0,25RD2LU2" 

90 RETURN 

200 FOR T=-l TO .05 STEP .1 

210 X--60*T*T: Y=120*T 

220 AN=ATN( (X+60)/-Y) 

230 GOSUB 300 

240 DRAW"BM"+STR$(INT(130 + Y) )+" 

,95" + ,r C2R2NGH" 

250 NEXT 

260 RETURN 

300 XC=1B7+X:YC=33-Y 

310 XX=0rYY-6:GOSUB 42U 

320 DRAW"BM" + STR$ (INT {XC+XT) ) +" 

, " + STRS(INT(YC-YT) ) 

330 RESTORE 

340 FOR N=l TO 16 

3^0 HEAD XX. YY 

360 GOSUB 420 

370 LINE - (XC+XT+.5.YC-YT+.5) ,P 

RESET 

380 NEXT 

390 RETURN 

410 DATA 0,6.-6,0.0,6.6,0.0,6,0 

,14,6.12,0,14,-6,12,0.14,0,18,2 

,18,2,22.-2,22,-2.18,0,18 

420 XT=XX*COS(AN)-YY*SIN(AN) 

430 YT-XX*SIN(AN)+YY*COS(AN) 

440 RETURN 

A primeira secao do programa, nas 
linhas 50 a 160, desenha o rio e as mar- 
gens. A secao seguinte, nas linhas 170 
a 290, usa a equacao da parabola (linha 
210) para calcular a posicao do nadador. 
A rotina do nadador esta entre as linhas 
300 e 400. Ela recorre a rotina de rota- 
cao (linhas 420 a 450) para garantir que 
o nadador seja desenhado com o angu- 



lo correto, ou seja, para que esteja vi- 
sando sempre o mesmo ponto na outra 
margem (que, neste caso, corresponde 
ao foco da parabola). O formato do na- 
dador e definido pela linha DATA 410. 



CIRCULOS E P0LIG0N0S 



Para o computador, urn circulo na- 
da mais e do que um poligono de mui- 
tos lados. Quanto maior for o niimero 
de lados, mais lisa sera a curva. Os usua- 
rios do Apple ja devem ter percebido 
que temos usado poligonos para obter 
circulos, compensando a lamentave! fal- 
ta do comando CIRCLE, No programs 
a seguir, eles verao que as linhas 70, 75 
e 80 simulam um comando CIRCLE pa- 
ra o desenho de um circulo de raio 70 
e com centro em 127,95. Por uma ques- 
tao visual, fizemos o raso na direcao Y 
um pouco menor (65 em vez de 70). Ca- 
so contrario, o circulo ficaria oval, apa- 
rentando ser uma elipse. 
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10 PI - 4 * ATN (1) 

60 HOME : HGR : HCOLOR=" 1 

69 HPLOT 197.8S 

70 FOR TH = TO 2 * PI STEP P 
1/16 

75 CX = 70 * COS (TH) + 127:CY 

- 65 * SIN (TH) + 95 
80 HPLOT TO CX.CY: NEXT 
90 VTAB (23) : INPUT "FORNECER 
ANGULO ";A 

100 A = A * ATN (13 / 45 
110 GOSUB 260 

130 HOME : VTAB (23): INPUT "J 
OGA NOVAMENTE (S/N) ":AN$ 
140 IF ANS - "S" THEN 10 
150 IF ANS < > "N" THEN 130 
160 HOME : TEXT : END 
260 TH = 2 * A 
270 N - 
280 HPLOT 185,95 
300 HPLOT TO 127 + 58 * COS 
(TH) .95 - 58 * SIN (TH) 
310 TH = TH + 2 * A 
330 N - N + 1 
340 IF N < 15 THEN 300 
350 RETURN 



10 LET ox-100: LET oy=90 

20 LET polyoon-260 

30 PAPER 0: INK 6 

40 BORDER 

50 CLS 

80 PRINT INK 7;AT 0.22;"Raio 

do"'TAB 22;"circulo e"'TAB 
2Z;"82 unid." 

90 PRINT INK 4; AT 21.0;"Intr 
oduia o angulo" ; 



95 CIRCLE 100,90,82 
100 INPUT a 
10 5 PRINT AT 21.0;" 

110 GOSUB polygon 

120 PRINT AT 21.6; "Outra vez ? 

(S/N)" 

130 LET a$=INKEY$: IF a$-"s" 

THEN GOTO 20 

140 IF 3S*"n" THEN STOP 

150 GOTO 130 

260 LET a=a/UB0/PI) 

2 70 LET at=0 

280 LET t>2*a 

290 PLOT ox+82,oy 

300 FOR n=0 TO 15 

310 LET b-B2*COS (t)+ox: LET c 

-82*SIN (t)+oy 

320 LET b=(b-(PEEK 23677)): 

LET c«(c- (PEEK 23678)): DRAW b 

,c 

330 SOUND 0.01 , (n*5) -20 

340 LET t-t+2*a 

350 NEXT n 

360 RETURN 



Wi 



10 COLORl.15,15 

20 GOSUB 90 

30 GOSUB 60 

40 GOSUB 120 

50 CLS: END 

60 SCREEN2 

70 CIRCLE (12 7.95) , 70. 13 : CIRCLE ( 

127.95) ,60, 13: PAINT (127. 30) .13 

80 GOTO 260 

90 CLS :L0CATE9. 10: INPUT" Farnega 

um angulo " : A 
100 A=A*ATN(l)/45 
110 RETURN 
120 SCREEN0;CLS 

130 LOCATES, 10: INPUT" Jooa novas 
ente (a/n) ";ANS 
140 IF ANS="S" OR AN$^"a" THEN 
RUN 

150 IF AN$<>"N" AND ANSO'n" TH 
EN 120 
160 RETURN 
260 TH«2*A 
270 N=0 

280 DRAW-BM185.95" 
300 LINE-<127+58*COS(TH} .95-58* 
SIN(TH) ) ,1 
310 TH=TH+2*A 

320 PLAY"TZ55L64V+STR$(15-N)+" 
CAGF" 
330 N=N+1 

340 IF N<15 THEN 300 
350 IF INKE¥$="* THEN 350 
360 RETURN 

D 

10 PMODE 3,1 

60 PCLS:SCREEN 1,0 

70 CIRCLEU27.95) , 70,4 : CIRCLE (1 

2 7,95) ,60. 4: PAINT {127 ,30) ,4 

80 FOR G-l TO 2 00 0: NEXT: COLOR 2 

90 CLS: PRINT :INPUT"QUAL O ANGUL 

";A 




l.lntos niuilo inleressjnles 

podem ser obtidos pela sohreposicao 

de curvas corneas. 



100 A-A*ATN(l)/45 

110 SCREEN 1.0:GOSUB 260 

120 IF INKEYS-"" THEN 120 

130 PRINT: PRINT : INPUT" NOVAMENTE 

(S/N) ";ANS 
140 IF AN3-"S" THEN 60 
150 IF ANS<>"N" THEN 130 ELSE C 
LS : END 
260 TH-2*A 
270 N-0 

280 DRAW"BM185.95" 
300 LINE- U27+58*COS(TH) ,95-58* 
SIN(TH)} ,PSET 
310 TH-TH+2*A 

320 PLAY"T20V"+STRS(31-N*2)+"C" 
330 N-N+l 

340 IF N<15 THEN 300 ELSE RETUR 
N 

O programa desenha um circulo e pe- 
de que fornegamos o angulo que a pri- 
meira linha formara com o lado do cir- 
culo. O angulo A ou a e convertido pa- 
ra Tela (TH ou t) na linha 260 da roti- 
na que desenha o poligono. niimero 
de lados foi restrito a quinze (linha 340) 
para o diagrama nao ficar parecendo 
apenas um emaranhado de linhas. 

Se fornecermos um angulo pequeno, 
o poligono se assemelhara a um circu- 
lo. Com angulos maiores, a forma mais 
provavel sera a de uma estrela. 



ARTE POR COMPUTADOR 



O programa a seguir desenha hiper- 
boles com diferentes excentricidades e, 
sobre elas, varias elipses. Podemos com- 
binar outros tipos de curva para obter 
desenhos mais complexos — basta dar 
asas a imaginacao. 
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10 HOME : HGH 2 
20 C » ATN (1) 
ATN (1) 
30 GOSUB 70 
40 GOSUB 25 5 



HCOLOR= 3 
45:PI - 4 



Ill 



70 PROGRAM ACAO BASK 70 



50 GOTO 50 

70 FOB E - 1 TO 1.25 STEP -02 

100 A - 22:B = A * SQR (E * E 

- 1) 

110 HPLOT 12B + INT (A / COS 
{ - 80 * C) ) ,95 - INT (B * T 

AN ( - 80 * O) 

130 FOR TH = - 80 TO 80 STEP 

20 

140 X - A / COS (TH * C) 

150 Y ■ B * TAN (TH * C) 

160 HPLOT TO 128 + X.95 - Y 

170 NEXT 

180 HPLOT 12? + INT (A / COS 
(100 * C) ) ,95 - INT (B * TAN 
(100 * O) 

190 FOR TH = 100 TO 260 STEP 2 



200 X - A / COS (TH * C) 

210 Y - B * TAN (TH * O 

220 HPLOT TO 127 + X , 95 - Y 

230 NEXT TH.E 

250 RETURN 

255 HCOLOR= 2: HPLOT 222,95 

260 FOR E ■ I TO .1 STEP - .0 

3 

270 FOR AN - TO 2 * PI STEP 

PI / 16 

280 CX = 95 * COS (AN) + 127:C 

Y = 90 * E * SIN (AN) + 95 

290 HPLOT TO CX.CY: NEXT AN 

.100 NEXT E: RETURN 



10 BORDER 0: PAPER 0: INK 7: 

CLS 

20 LET hiperbola-80 

30 LET elipae=270 

40 GOSUB hiperbola 

50 COSUB el ipse 

60 GOTO 60 

80 LET ox=128: LET oy=B7 

90 FOR e=l TO 2 STEP 0-05 
100 LET a-22: LET b-a*<SQR <e* 
2-l>) 

102 LET h=l 

104 LET f=oX+ (a/COS (-1.396)) 
106 LET g=oy+(b*TAN (-1.396)) 
108 IF g<0 THEN LET h=0 
110 PLOT INVERSE I; OVER 1 i f , 
h 
120 IF g>Q THEN PLOT INK 6if 

.« 

130 FOR t=-B0 TO 80 STEP 20 
135 LET r-t/UB0/PI) 
140 LET x=a/C0S (r) : LET y-b* 
TAN (r) 

142 LET c-oy+y: LET d-ox+x 
150 IF h=0 THEN LET d=f+g* (f- 
d)/(c-g): PLOT d,h: LET c-0 
L60 IF c>175 THEN LET d-d- ( (d 
-PEEK 23677)*<c-175)/(c-PEEK 
23678)) : LET c-175 
170 DRAW INK 6;d-PEEK 2 3677, c 
-PEEK 23678: NEXT t 
172 LET f-ox+ (a/COS (1.75}) 
174 LET g-oy+(b*TAN (1.7 5)) 
176 PLOT INVERSE 1; OVER l;f. 
Ih 
178 IF g<0 THEN LET h-0 



180 IF g>0 THEN PLOT INK 6;f 
, g 

190 FOR t=100 TO 260 STEP 20 
195 LET r = t/ (ISO/PI) 
200 LET x=a/(C0S (r)): LET y=b 
*TAN <r} 

.202 LET c-oy+y: LET d = ox+x. 
204 IF h = THEN LET d = f + gMf- 
d]/(c-g): PLr.T d.h: LET c=0 
206 LET h=l 

210 IF c>175 THEN LET d=G- ( <d 
-PEEK 23677)*<c-175)/(c-PEEK 
23678) ) : LET c = 175 
220 DRAW INK 6;d-PEEK 23677, c 
-PEEK 23678 
230 NEXT t : NEXT e 
250 RETURN 

270 FOR e=0.5 TO 0.98 STEP 
0.04 

280 LET a-100: LET b-a* (SQH (1 
-e"2) ) 

290 PLOT ox+a,oy 
300 FOR t=0 TO 360 STEP 10 
305 LET r-t/(180/PI) 
310 LET x-a*COS (r) 
320 LET y-b*SIN (r) 
33D DRAW x-CPEEK 2367 7) +ox , y- ( 
PEEK 23678) +oy 
340 NEXT t: NEXT e 
360 RETURN 




fffi 



10 COLOR 1,15, 15: SCREEN 2 

20 C-ATN(l)/45 

30 GOSUB 70 

40 GOSUB 260 

50 GOTO 50 

70 FOR E-l TO 1.25 STEP .02 

100 A-22;B=A*SQR(E*E-1) 

110 DRAW"BM*'+STR$(12B+INT (A/COS 

(-80*0 ))+", "+STR$(95-1NT(B*TAN 

(-80*0 )) 

130 FOR TH=-80 TO 80 STEP 20 

140 X=A/C0S(TH*O 

150 Y=B*TAN{TH*C) 

160 LINE-U28+X.95-Y) ,1 

170 NEXT 

180 DRAWBM"+STRS(127 + INT (A/COS 

(100*0 ) )+" , "+STRS (95-INT(B*TAN 

(100*C) )) 

190 FOR TH=100 TO 260 STEP 20 

200 X=A/C0S(TH*O 

210 Y=B*TAN(TH*C) 

220 LINE-(127+X,95-Y) ,1 

230 NEXT TH,E 

25 RETURN 

260 FOR E-l TO .1 STEP -.03 

270 CIRCLE(127,95) ,95,8, , ,E 

280 NEXT: RETURN 

Q 

10 PMODE 3, 1-.PCLS2: SCREEN 1,0 

20 C-ATNU>/45 

30 GOSUB 7 

40 GOSUB 260 

50 GOTO 50 

70 FOR E-l TO 1.25 STEP .02 

100 A-22:B*A*SQR(E*E-1) 

110 DRAU"BM"+STRS (126+INT (A/COS 



A equa^an para um tireulo tambem 
e usaila para Os po!igono$. 



(-80*0 ) ) +" , "+STRS(95-INT(B*TAN 

(-80*0 )} 

130 FOR TH--BO TO 80 STEP 20 

140 X=A/C0S(TH*O 

150 Y=B*TAN(TH*C) 

160 LINE-U28+X.95-Y) ,PSET 

170 NEXT 

1B0 DRAW*BM"+STR$(127+INT (A/COS 

(100*C) ) )+" , "+STRS (95 -I NT CB*TAN 

<100*O) ) 

190 FOR TH»100 TO 260 STEP 20 

700 X-A/C0S(TH*O 

210 Y=B*TAN(TH*C) 

220 LINE-(127+X,95-Y) , PSET 

2 30 NEXT TH.E 

250 RETURN 

260 FOR E-l TO .1 STEP .03 

270 CIRCLE (127,95) ,95, 3. E 

280 NEXT: RETURN 



Tanto a eiipse quanto a hiperbole po- 
dem ser desenhadas com excentricidades 
diferentes — este e o papel que cabe a 
variavel E ou e. 

Para as elipses, E varia de ate 1, 
fazcndo-as ir desde um circulo ate uma 
reta. No programs, E varia de .5 a .98, 
o que garame que as elipses sejam sufi- 
cientemente abertas. 

Nas hiperboles, E pode variar de 1 ate 
o infinite, mas, novamente, o progra- 
ma restringe o iniervalo, fazendo com 
que E varie de 1 a 2. Quanto maior for 
E, mais proxima a hiperbole estara de 
uma reta. 

E muito facil calcular a excentrici- 
dade de uma eiipse ou de uma hiper- 
bole. Para uma eiipse de equacoes 
X = A*COS T e Y = B*SIN T, a formu- 
la sera E^BVA 1 -!, como pode ser 
observado na linha 280 do programa pa- 
ra o Spectrum. Os outros micros nao 
precisam cakular a variavel E, que e 
simplesmerue incorporada ao comando 
CIRCLE (MSX e TRS-Color) ou a si- 
mulacao do mesmo (Apple, linha 280). 

Para uma hiperbole cujas equaeocs 
sao do tipo X = A/COS Te Y = B*TAN 
T, temos E 2 = 1-B 2 M 2 . Uma versao 
adaptada dessa formula e utilizada na 
linha 100 do programa. 
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SPECTRUM (1) 



COMO ESCREVER NAS 



LINHAS RESERVADAS DA TELA 



DELIMITA C AO DAS AREAS 



INDEPENDENTS DA TELA 
UMA TELA LISTRADA 



Existem muitos recursos "ocultos" na 
ROM do ZX Spectrum. Conhecendo-os, 
voce podera empregar fantasticos 
truques de programacao em BASIC, 
obtendo o maximo de seu computador. 

O micro Sinclair ZX Spectrum iius- 
tra muito bem o famoso ditado "tama-' 
nho nao e documento' ' , Os felizes usua- 
rios dessa popular maquininha, que ja 
tiveram a oportunidade de conhecer 
mais a fundo seus recursos tecnicos, po- 
dem testemunhar o quanto eles sao po- 
derosos — mais ate do que os encontra- 
dos em muitos microcomputadores pro- 
fissionais, maiores e mais caros. 

Na serie de artigos que iniciamos 
aqui, voce vera de que modo pode ex- 
plorar alguns "recursos secretos" do 
Spectrum e de seus compati'veis nacio- 
nais (como o TK-90X e o TK-95 da Mi- 
crodigital) e internacionais. 

Por que "secretos"? Como voc5 
mesmo tera oportunidade de verificar, 
tais recursos nao estao documentados 
no Manual de Operacao e, portanto, sao 
desconhecidos da grande maioria dos 
usuarios. 



A TELA PROTEGIDA 



E provavel que voce ainda nao tenha 
descoberto a possibilidade de escrever 
nas duas linhas da parte de baixo da te- 
la. Normalmente, nao se usa o cornan- 
do PRINT para escrever nessas linhas, 
pois elas sao reservadas para a entrada 
de dados (INPUT), paia a entrada e edi- 
cao de programas e para a impressao de 
mensagens de erm do interpretador BA- 
SIC. E muito facil, porem, modificar 
um comando PRINT de tal maneira que 
se possa utiiizar essa area independente 
da tela: 

10 PRINT 0; "Mens a gem" 

O comando funciona evidentemente 
denlro de um programa, O numero ze- 
ro, colocado entre o PRINT e a mensa- 
gem a ser escrita, provoca o efeito de- 
sejado. Para limpar a parte de baixo da 
tela sem afetar a area normal de escri- 
ta, use a instrucao: 



Z0 INPUT "" 

Procure nao deixar um espaco em 
branco entre as aspas, pois o comando 
nao funcionara. 

Experimentando um pouco mais, vo- 
ce fara novas descobertas sobre a parte 
inferior da tela. Vera, por exemplo, que 
ela nao e limitada as duas linhas antes 
mencionadas. Dessa maneira, se mais 
palavras forem incorporadas ao progra- 
ma, a parte de baixo se expandtra, "cm- 
purrando" para cima a parte superior 
da tela. 

Pode-se tambem usar o comando 
PRINT AT na parte inferior da tela, 
neste caso, porem, a numeracao deve ser 
independente. 

Tente o seguinte: 

10 PRINT 0; "INPUT"; AT 12,0; 
"APRESENTA DICAS" 

Se voce quiser limpar a parte de bai- 
xo, apos uma pequena pausa, acrescen- 
te estas linhas: 



20 PAUSE o 
30 INPUT "' 



PAUSE 



E, para obter sucessivas repetscoes,' 
acrescente: 

40 GOTO 10 

Final mente, se para voce e dificil per- 
ceber onde comeca cada area indepen- 
dente da tela, adicione ao programa a 
linha a segutr, e rode-o novamente. Co- 
mo voce vera, o comando BORDER co- 
loca uma moldura de cor diferente na 
parte de cima da tela. 



5 BORDER 2 



APL1CAC0ES 



Mas para que servem esses truques? 
Tudo depende de sua capacidade de co- 
locar a imaginatao para funcionar. 

A escrita na parte inferior da tela po- 
deria ser ulilizada, entre outras coisas, 
para deixar fora da area principal as 
mensagens de prontidao para entrada de 
dados. Assim, ao realizar, por exemplo, 
uma animacao grafica, sera possivel co- 
locar mensagens num ponto em que nao 
atrapalhem o movimento nem sejam 
destrufdas por ele. 



Outra aplicacao importante consiste 
na criacao de "janelas": areas indepen- 
dentes de texto ou de graficos, muito 
usadas nos "pacotes" mais modernos 
para micros profissionais. 



UMA TELA LISTRADA 



Pode-se obter um outro efeito inte- 
ressante de tela quando o computador 
esta sem fazer nada — aguardando, por 
exemplo, que uma tecla seja pressiona- 
da (funcao INKEYS). Nesse tipo de si- 
tuacao, sofistique seu programa com a 
rotina apresentada a seguir. Ela indica 

estado de espera, fazendo a moldura 
da tela exibir continuamente um listra- 
do cambiante de cores: 

1 GOTO 100 

2 BORDER 1 : BORDER 2 : BORDER 4 : 
BORDER 5 : BORDER 6 : BORDER 7 ! 
PAUSE 1:IF INKEYS-"" THEN GOTO 
10 

3 LET X$-INK£YS:RETURN 

80 REM 

90 REM PROGRAMA PRINCIPAL 

95 REM 

100 GOSUB 10 

110 PRINT X$:GOTO 100 

A instrucao da linha 2, PAUSE 1, 
sincroniza as mudancas nas cores da 
moldura de modo que ocorram simul- 
taneamente ao im'cio da varredura da te- 
la. Assim, elas parecem estar estaciona- 
rias. Experimente tirar o PAUSE 1 pa- 
ra ver o que acontece. 

O numero de comandos BORDER 
tambem desempenha uma funcao: co- 
mandos que estejam a mais ou a menos 
forearao uma perda da sincronizacao. 

Introduza a rotina da linha 2 no co- 
meco do programa principal, que deve 
ser coiocado a partir da linha 100. A li- 
nha 1 serve apenas para pular ate o im'- 
cio do programa. O truque e necessario, 
pois o GOTO existente na linha 2 pro- 
vocard um grande retardo se a sub-roti- 
na estiver no final da listagem. Como o 
interpretador BASIC procura a linha de 
destino a partir do im'cio do programa, 
sempre que encontra um GOTO, a de- 
mora sera maior se houver um longo 
programa antes da linha que content a 
instrucao de desvio. 
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UMA AGENDA 
ELETRONICA (3) 



Apresentamos aqui a parte final do 
nosso programs de agenda e calendars. 
Tendo listado as ultimas rotinas, voce 
podera, finalmente, explorar todas as 
possibilidades desse versatil programs. 



Se voce ja tem as duas partes ante- 
riores deste programa gravadas em dis- 
co ou fita, carregue-as na memoria do 
micro e digite as linhas que faltam. O 
programa estara completo e voce pode- 
ra comecar a usa-lo para mantcr urn re- 
gistro de todos os seus compromissos fi- 
nanceiros, sociais ou de saiide. 

E aconselhavel que releia as instru- 
coes para a utilizaeao do programa da- 
das nos dois primeiros artigos da serie. 
Instrucoes adicionais sobre gravacao e 
leitura de dados da fita ou disco sao for- 
necidas a seguir, 

E facil lidar com o programa. O me- 
nu principal permite que voce escolha 
exatameme o que deseja, em cad a situa- 
cao. A lodo instante, voce encontrara 
uma mensagem indicando como proce- 
der. Todos os pontos de entrada de da- 
dos tern uma retina de verificacao. Por- 
tanto, nao se preocupe muito em digi- 
tar dados incompativeis — o programa 
simplesmente voltara a soiicitar o dado. 



GRAVACAO DOS DADOS 



Apos entrar os dados de sua agenda, 
escolha a opcao 8 para grava-los. No 
Apple II,o programa preve o emprego 
de urn drive; nos demais micros, de fita 
cassete. Ha uma rotina especial para 
quern utili^a o TRS-Color com drives. 
Se voce usa fita, deixe o gravador pre- 
parado para receber os dados quando 
soiicitar a opcao 8. 

Ao usar novamente o programa, res- 
ponda S a pergunta "Voce tem listas de 
dados?". Os dados preexistentes serao 
carregados para a memoria, podendo 
ser atualizados, apagados, listados. An- 
tes de teclar S, deixe o gravador pronto 
para ler a fita com os dados. 

O norne para esse arquivo e "DIA- 
RIO", Assim, adote outro nome para 
o programa (CALENDARIO, por 
exemplo). 



]760 LET M4 = 0: LET A4«0 

17 70 INPUT "AN0:"iYR: IF WK175 

3 OB Yfi>29999 THEN GOTO ] 770 

] /HO GOSUB 64 

1790 GOSUB 24 80 



1800 
1810 

ia?o 

1830 

1920 

1840 

1850 

1860 

1870 

) 

1880 

2020 

1B9Q 

THEN 

1900 

1910 

1920 

-_[} 

1930 

INT 

1940 

I9M) 

I960 

1970 

1980 

l)*3 

1990 

2000 

2010 

2020 

2030 

; F t. 

OHA" 

2040 

-0 



CLS 

POKE 23692,25 5 

PRINT |P;"ANO " | YR 

PRINT IP: LET KB = 0: GOSUB 

PRINT IP 
GOSUB 2460 
FOR Z=I TO 12 
LET M0=2 
PRINT |P;M$tMO*9-8 TO M0*9 

LET T2-5: LET 82*0! GOSUB 

IF P-2 THEN IF INKEYS-" " 

GOTO 1890 
NEXT Z 
RETURN 
LET X2-0: LET C2-0: LET D2 

IF KB-0 THEN LET X2=7: PR 

IP 

IF P=3 THEN LET KB-KB+1 

PRINT IP;2$( TO X2) ; 

FOR d- 1 TO 7 

INK 4: IF d=J THEN INK 2 

PRINT |P;Z$( TO KB);s$((d- 
+ 1 TO (d-l)*3+.1> i 

NEXT d 

INK 7 

RETURN 

PHI NT 

IF P»3 THEN PRINT AT 10,4 
Ai'tH l;"j:Alt)A PARA A IMPRESTS 

LET M5 = 0: LEI XP = 0: LET X2 
LET W2--0: LET AS-"": LET US 



THEN LET AS-" " ! 
LET X2-7: LE 
LET A$=A5+" " 

00SUB 2 70 : LET 
LET K2=7: LET X 



2050 IF S2»J 
L. i: t 02*4 

2060 IF S2=0 THEN 

T W2-3 

20?Vi IF P=3 THEN 

: LET W2=W2H 

208 LET DA-1 

2090 LET KH"MO: 

M5-KH 

2100 GOSUB 560: 

P-FN M(KB) 

2110 PRINT IP;2S( TO XP*W2) ; 

2120 LET DA=0 

2130 PRINT IF;2S( TO X2)j 

2140 LET DA-DA+l: LET- DS-AS+ (ST 

RS <DA))+" ": TF LEN DS<W2 THEN 

LET I)S = D$+ZS< TO W2-LEN D$) 
2150 IF AS="" THEN PRINT |P;D$ 
; : GOTO 2170 

2.160 LET KB=T2: GOSUB 350: PBIN 
T #P; INK KB;DS; 
21 70 LET XP-XP+1 

21B0 IF NOT <XP>6 OR DA-M5) THE 
N GOTO 2140 
2190 LET XP=0: PRINT |P: TF S2= 



] THEN PHINT IP 

2200 IF DAOM5 THEN GOTO 2130 

2210 TF MO=ME THEN PRINT |P:: 

PHtNT IP; "Domingo de Paseoa "sH 

S(rtE*9-8 TO ME*9) ; OE 

2220 IF P = 3 THEN PRINT AT 10,0 

:ZS: PRINT AT 10 , 1 3 ; "PRONTO" 
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ROTINAS QUE CQMPLETAM 

PROGRAMA 

GRAVACAO DAS LISTAS DE 

AGENDA EM FITA 

COMO CARREGAR A 



INFORMACAO PARA A MEM6RIA 



ATUALIZA C AO DA INFORMA CAO 

A ROTINA DE IMPRESSAO 

MUDANCAS PARA 



SISTEMASCOMDISQUE1E 



22 30 RETURN 

2240 GOBUB 2510 

2250 LET T2-0: LET MX = : LET N2 

-0: LET A$="": LET CL=0: LET H9 

=M0: LET Y9=¥B 

2260 GOSUB 2480: CLS 

2270 OOSUB 2V0: PRINT tP 



2280 PRINT »P;"I>TA ENTRADA" 

: PRJMT AT . 18 ; "Qualquer tecla 

para" 'TAB 18; "proxj roa entrada" 

2 290 PRINT |P 

2.100 003(19 2460 

2.110 IF MO=ME THEN PRTNT IP; 1 

NK 5;DE;" Domingo de Paacoa" 



2320 PRINT IP 

23.30 FOR t=l TO 4 

2340 LET MX=Q{t) 

2350 IF MX=0 THEN GOTO 2410 

2 360 FOR N=l TO MX 

2370 LET K$ = L$U.N) 

2380 LET KB = T. 
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2390 
= 1 TH 
2 TO 
2400 
21 If 
10 

2420 
2430 
2440 
40 
24 5 
RN 

2460 
60 

2470 
24S0 
IMIR 
UB 14 
2490 
P-3 
2500 
2510 



LET K2=3; GOSUB 470: IF K2 
EN PRINT |P; INK Z(t);KS( 
3) ;" " ;KS<10 TO > 
NEXT N 
IF INKEYS^"" THEN GOTO 21 

NEXT t 

FOR ]=1 TO 100: NEXT I 

IF INKEY5="" THEN GOTO 24 

LET M0=M9: LET YR=Y9 : RET1J 

IF INKEY3""" THEN GOTO 24 

RETURN 

PRINT : PRINT "DESEJA IMPR 

(S/N) ?": LET KS-"gn": COS 

80 

LET P-2: IF KB=1 THEN LET 

RETURN 

INPUT "MES ?" ;MO 




d 



APLICACOES PROFISSIONAIS 
DO PROGRAMA DE AGENDA 

programa de agenda e calendario, 
alem de funcionar bem para a marca- 
cao e acompanbamento de compromis- 
sos e atividades de natureza pessoal, 
pode ter diversas aplicacoes profissio- 
nais, tal como a marcacao de consul- 
tas em uma clfntca medica ou odonto 
logica. Para isso, ser3 necessario mo- 
dificar o programa em alguns pontos, 
>ois o ni'vel e o tipo de informacoes que 
ima agenda profissional requer sao 
em diferentes dos de uma agenda 
pessoal. 

Tomemos como 
profissional de um deg 
formacoes como daj 
sulta, nome, sexoi 
ela pode incorporaj 
do — entre eles, 
adotado (obture 
cao de protese^M, a^Bacao previs- 
ta para a consult?- a sap em que ela 
sera realirada. ^Otros^Kips ..podem ser 
incluidos. como o saldo ou debito finan- 
cetro do paciente e a fontepa^adora 
(corwenio, por exemplo), 

Os relatorios obtidos a partirde uma 
agenda tambem sao muito diferentes 
para um profissional. No caso do den- 
tista, ele poderia precisar nao so da 
agenda diaria impressa, com a lista dos 
pacientes a serem atendidos e demais 
;:d'ios mencionadoSi mas. Binds, da 
listflbf"' 1 dos | Bft£s que faltaram, 
|tica dos proce- 
mes etc. 




2520 IF MO<l OR MO>12 THEN GOT' 

2510 

2530 INPUT "ANO ?";YR 

2540 IF YR<1735 OR YR>29999 THE 

N GOTO 2530 

2 5 50 GOSUB 640 

2560 RETURN 

2570 PRINT IP; PAPER 1: INK 7;M 

5(MO*9-B TO MO*9);" ";YR 

2500 RETURN 



D 



-T2-S2 

'0:W2*0?A2S= 



2240 'IMPRIME MES 

2250 M5-0:XP-0:X2 

:D2S-"" 

2260 IF S2-1 THEN A2S-" *:W2 

2270 IF S2-0 THEN X2-7:W2-3 

2280 IF P-2 THEN A2$-A2S+" * 

-W2 + 1 

2 290 DA-1 

2300 KB-MO:GOSUB 230;M5-KB 

2310 GOSUB 560:K2-7:XP-FNM{KB) 

2 3 20 PRINT |-P, STRINGS (XP*(W2) 

32) : 

2 3 30 DA-0 

2340 REM 

2350 PRINT #-P, STRINGS {X2 , " ") 

2360 REM 

2 3 70 DA-DA- 

DA^B)+" 

D23=D2S+" " 
2380 IF A23= 
2?> :GOTO 7400 

2390 KB-T2:GOSUB 31Q:MID$<D2$ 
,l)=CHRaHKB) :PRINT|-P.D2$; 
2400 XMP+1 

flOT(XP>6 OR DA-M5) 



IF 



U2 



D2S-A2S+MIDS{STR$( 
LEN (D2SKW2 THEN 

" THEN PRINT |-P.D 



i 

'I 




2420 XP-0: PRINT |-P 

N PRINTI-P 

24 30 IF DAOM5 THEN 2340 

2440 IF MO-ME THEN PRINT # 

INTI-P, "DOMINGO DE PASCOA 

3<MNS.ME*9-8,9) ;DE 

2450 RETURN 

2460 'ROTINA DIAHIO 

2470 T2-0:MX-0:N2-0:AS- 

M9-MO:Y9-YR 

2480 GOSUB 2750:GOSUB 2720 : CLS 

2490 GOSUB 2B2G : PRINT |-P 



:CL-0: 



','DM 
>60^V 
: THEN 

i j ASf"-;;, 



ENTRADA" 



PRINT t-P.DE 
OA" : PRINT V 



T #-F 



2500 PRINTI-P, 
2510 GOSUB 2660j 
2520 IF MO-ME 
; "DOMINGO DE Pi 
2530 FOR T2-0< 
2540 CL-159+JJfT2 
2550 IF P e 2U Cl 
2560 MX = VALU.1${T2,0)) 
2570 IF MX-Q THEN 2620 
25S0 FOR N2-1 TC 
2590 AS'LIS[T2,1 

2600 KB3-AS:GOSUPn?^IF K2-1 T 
HEN PRINT i-P,MID$<STRS(ASC(MID 
$(A$.2.1)>) ,2) ;TAB(3) ;CHRS(CL) ; 
RIGHTS (AS, LEN (AS) -4} 
2610 NEXT: PRINT |-P 
2620 IF P-0 AND INKEYS""" THEN 
2620 
J2630 NEXT 

.IF INKEYS-"" THEN 2640 



TO MX 
SUB^^^I 



/ 



2650 M0*M9:YR-Y9: RETURN 

2660 'ESPERA POR TECLA 

2670 P1-PEEKC136) : P2-PEEK (137) 

2680 PRINT 6480, "QUALWER TECLA 

PARA CONTINUAR" : 
2690 IF INKEYS-"" THEN 2690 
2700 PRINT €480. STRINGS (30. 32) ; 
:P0KE 136,P1:P0KE 137, P2 
2 710 RETURN 
2720 'IMPRESSAO 

2730 PRINT: PRINT" GOSTARI A DE IM 
PR IMIR (S/N) ?" :KB$="SN" :GOSUB 
1590: IF KB-1 THEN P-2 
2 740 RETURN 
2750 REM 

2 760 INPUT"MES:";MO 
2770 IF M0<1 OR MO>12 THEN 2760 
2780 INPUT" ANO:":YR 
2 790 IF YR<1753 OR YR>29999 THE 
N 2780 

2800 GOSUB 650 
2810 RETURN 
2820 REM 
2830 PRINT MIDS(MNS,M0*9-8,9) : " 

■ ;YR 
2840 IF P-2 THEN PRINT *-2,MID$ 
(MNS,M0*9-8.9) |" *;YR 
2850 RETURN 



Wi 



2240 ' lmprime m6a 

2250 M5=0:XP=0:X2-0:W2=0:A2$= 



/ 




S2=l THEN A2S=" ":W2=4 
2270 IF S2=0 THEN X2=7:U2-3 
2280 IF P=2 THEN A2S=A2$+" ' 
iM2+l 

DA=l 

KB=MOt GOSUB 2 30:M5=KB 
GOSUB 560:K2»7:XP=FNM(KB) 
PRINTIP, STRINGS(XP*W2,32 



330 DA=0 
2340 REM 



STRINGS(X2," ") 



2350 PRINTIP, 

2360 REM 

2370 DA=DA+) :D2S=A2S+MIDS(STR 

DA), 2)+" ":IF LEN{D2SKW2 THEN 

D25=D2$+" " 

2380 IF A2S="" THEN PRINTIP, D23 

; :GOT0 2400 

2390 KB*T2:GOSUB 310: MIDS (D2S, 1 

, 1)=CHRS(KB) : PRINTIP, D2$i 

2400 XP=XP+1 

2410 IF NOT 

2360 
2420 XP=0 

PRINTIP, 
2430 IF D, 
IF 
'D 




>6 OR DA=M5) THEN 



THEN 




2440 

NTIP, 

;"de 

2450 

2460 

2470 

M9-M0: Y9=YR 

2480 GOSUB 2750:GOSDH 2720-CLS 

2490 GOSUB 2B20 : PRINTIP . 

2500 PRINTIP, "Dia Compron 

isbo" 



CL = 0: 



' 



inn 
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2510 GOSUB 2660 

2520 IF MO=ME THEN PRINTIP."dia 

" :DE; "Domingo de Pdscoa" : PRINT! 

P. 

2530 FOR T2^Q TO 3 

2540 CL-32 

2550 IF P-2 THEN CL-32 

2560 MX=VAL(LI${T2,Q)) 

2570 IF MX-Q THEN 2620 

2580 FOR N2 = l TO MX 

2590 A$=LIS<T2,N2) 

2600 KBS=A$:G0SUB 4/0:IF KZ = 1 T 

HEN PRINT|P,MID$(STHS (ASC(MIDS( 

A3, 2.1))) ,2) ;TAB(3) jCHRSCCL) ; HI 

GHTS(AS.LEN<AS)-4) 

2610 NEXTrPRINTtP. 

2620 IF P-3 AND INKEYS-"* THEN 

2620 

2630 NEXT 

2640 IF INKEY$="" THEN 2640 

2650 MO«M9:YR-Y9; RETURN 

2660 RETURN 

2720 ' ot>c3o iapresBlo 

2730 PRINT: PRINT"C;uer imprimir? 

(S/N) " :KB$=*SN" : GOSUB 1590: IF 
KB=1 THEN P-2 
2 740 RETURN 
2750 ' rotina de data 
2760 INPUT " M*b:":MO 
2770 IF MO<l OR MO>12 THEN 2760 
2760 INPUT ' Ano:";YR 
2790 IF YR<1753 OR YR>29999 THE 
N 2780 

2800 GOSUB 650 
2810 RETURN 
2820 ' tltulo 

2830 PRINTMID5(MNS,MG*9-8,9) : " 
" ; YR 

THEN LPRTMT MID$ CMN 
" " jYR 



2840 IF P-2 
$.M0*9-8,9) 
2850 RETURN 



ai 



2240 REM IMPRIME 
2250 M5 - 0:XP - 
0:A2$ - ":D2S = * 
2260 IF S2 = 1 
4 
IF S2 - 



U2 - 
2270 
- 3 
2280 



IF P - 2 
• ":W2 - W2 + 
2290 DA - 1 
2 300 KB - MO: GOSUB 230: MS = 




2310 GOSUB 560 :K2 

M(KB) 
2320 PRINT 
2330 DA - 
2340 REM 
2 



7:XP 



SPC( XP * W2) 



KB 



FN 




SPC( X2) 

2$ - A2S + 
IF LEN <D2S) 
D2S + " " 
"" THEN PRINT 



SUB 310:D2$ - 
DS (D2$,2) : PRIN 



2410 IF NOT (XP > 6 OR DA - M 

5) THEN 2 360 

2420 XP = 0: PRINT : IF S2 - 1 

THEN PRINT 

2430 IF DA < > MS THEN 2 340 

2440 IF MO ■ ME THEN PRINT "D 

OMINGO DE PASCOA: " ; DE ; " DE " 

; MIDS <MN$,ME * 9 - 8", 9) 

2450 RETURN 

2460 REM ROTINA DIARIO 

2470 T2 - 0:N2 = 0:MX = 0:AS = 

"":CL - 0:M9 - M0:Y9 - YR 

2480 GOSUB 2750: GOSUB 2720: H 

OME 

2490 

820: 

2500 

SO" 

2510 

2520 



PRINT DS;"PRI"iP: GOSUB 2 
PRINT 
PRINT "DIA COMPROMIS 



PRINT DE 



GOSUB 2 660 

IF MO = ME THEN 
DOMINGO DE PASCOA" 

FOR T2 - TO 3 
CL - 40 

IF P - 1 THEN CL - 32 
■ VAL (LI$(T2,0)) 

IF MX - THEN 2630 

FOR N2 - 1 TO MX 
AS - LIS(T2,N2> 
KBS = A3: GOSUB 470: IF K2 
THEN PRINT STRS C ASC ( 
<AS.2,1))) ; TAB( 3) ; CHR$ 

RIGHTS (A3. LEN (AS) - 4) 



NEXT : PRINT 

IF P = AND T2 < 3 THEN 
GET R$ 
2630 NEXT : PRINT "<>":P - 0: 
PRINT DS;"PR*":P^ GET R$ 
2640 MO - M9:YR ■ Y9 : RETURN 
2660 RETURN 

2720 REM OPCAO IMPRESSAO 
2 730 PRINT : PRINT : PRINT "QU 
ER UMA COPIA IMPRESSA? (S/N) "; 
KB$ ■ "SN": GOSUB 1590: IF KB - 

1 THEN P = 1 
2740 RETURN 

REM ROTINA DE DADOS 

INPUT " MES: 

IF MO < 1 




2750 
2760 
2770 

2760 
2780 
2790 



INPUT 

IF YR 
9 THEN 2780 
2800 GOSUB 650 
2810 RETURN 
2820 REM ROTINA T 
2830 PRINT 

8,9) |" ";YR 
2840 REM 
2850 RETURN 




THEN 



2999 



a 




MUOANCAS PARA DRIVE 



'tin^PBi adaptar o progra- 
S-Color a urn drive: eia inelui 
uenas modiftcacoes nos co- 
am com o arquivo. 




A agenda e uma especie de banco 
de dados? 

Sim, de certa forma, uma agenda e 
urn banco de dados. Cada linha, reser- 
vada para a anotagao de um compro- 
misso, corresponderia a um registro de 
banco de dados. As informacdes sobre 
datas, horarios e as descricoes seriam 
os campos basicos. 

Tanto e assim que poderfamos uti- 
Sizar o programa de banco de dados pu- 
blicado nos artigos das paginas 68, 
688 e 706 para estruturar uma agen- 
da diaria- Com esse objetivo, definiria- 
mos os seguintes campos: 

t, DIA: dois caracteres, nume>ico 

2. MES: dois caracteres, numerico 

3. A NO:, dois caracteres, numerico 

4. HORARIO: quatro caracteres, nu- 
merico 

5. ATIVIDADE: trinta caracteres, alfa- 
betico 

6. TtPO: um caractere, atfabetico 

7. STATUS: um caractere, alfabetico 

O campo TIPO serviria para identi 
ficar a categoria de compromtsso ou 
atividade (por exemplo, L para larer, P 
para profissional, F para familiar e as- 
sim por diante). Ja o campo STATUS 
teria a finalidade de informar se a ati- 
vidade marcada foi realizada ou nao. 

Depois de entrar seus compromis- 
sos utilizando esse esquema, sera pos- 
sfvel pesquisar o banco de dados por 
meio das funcoes de PESQUISAR E 
LISTAR do programa gerenciador de 
bancos de dados. 

Com esse procedimento, voce tera 
transformado o programa de banco de 
dados nao em uma simples agenda, 
mas num poderoso e flexivel instru- 
mento de gestae pessoal. 



1750 OPEN"0" ,#1 ■ "DIARIO/DAT" 
1780 PRINT U.LISCN.O) 
1810 FOR J-l TO 4:PRINT#1,STR$ ( 
ASC(MIDS{LI3(N.P),J,1)>) :NEXT J 
1820 PRINT #1 ,MIDS(LIS (N.P) ,5) 
1850 CLOSE #1 

1890 0PEN*I" , |1 , "DIARIO/DAT" 
1910 LINE INPUT |1.LI3(N,0) 
1950 FOR J-l TO 4:INPUT»1.NNS:L 
IS (N, P) -LIS (N, P) +CHRS (UAL (NNS) ) 
■ NEXT J 

I960 LINE INPUT II ,NNS : LIS (N, P) 
kISUyil+NNS 
: ose » 




871 
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© A R AFOSA 
ANSOS(l) 



Era uma vez uma raposa que jogava 
xadrez contra urn grupo de 
gansos e... Bern, se voce quer saber 
o fim dessa htstoria, leia o 
artigo a seguir e entre no jogo. 



Ura programa como o do jogo cha- 
mado Otelo pode ser escrito — como vi- 
mos — de maneira que o computador 
dispute contra um adversario humano 
sem que este fique numa situacao de in- 
ferioridade. Mas, neste caso, com um 
pouco de pratica, pode-se, quase sem- 
pre, ganhar do computador. 

Nas proximas tres secoes de Progra- 
ma^do de Jogos, veremos um programa 
mais sofisticado escrito para que o com- 
putador dispute o jogo chamado A Ra- 
posa e os Gansos. Esse programa ofe- 
rece varios niveis de dificuldade, permi- 
tindo que o jogo se torne tao facil ou 
tao diffcil quanto se queira. 

A Raposa e os Gansos serve para ilus- 
trar muttos dos problemas e dos princf- 
pios envolvidos na elaboracao de um 
dos mais interessantes e dificeis jogos 
que existem: o xadrez. 

Para os programadores, contudo, es- 
se jogo apresenta um inconveniente: e 
impossivel escrever em BASIC um pro- 
grama de xadrez que valha a pena, pois 



a maquina levaria longo tempo para exe- 
cutar cada jogada. Nos m'veis superio- 
res de A Raposa e os Gansos, o progra- 
ma despende um bom tempo para ana- 
lisar cada movimento, chegando mesmo 
a perder cerca de meia hora nos m'veis 
mais alios e nas maquinas maislentas. 
O problema pioraria muito se te'ntasse- 
mos escrever um jogo de xadrez. 

Para manter nosso trabalho longe das 
diliculdades do codigo de maquina, pre- 
cisamos de um jogo mais simples. A Ra- 
posa e os Gansos preenche esse requisi- 
te, porque, alem de ter varias caracte- 
risticas do xadrez, 6 jogado no mesmo 
tipo de tabuleiro. 

O artigo esta dividido em tres partes. 
Nesta primeira, voce tera acesso aos 
principios que fundamentam o progra- 
ma e dara inicio a estruturacao do jo- 
go. Nas duas seguintes, construiremos 
os segmentos restantes. 

Vamos comecar analisando o jogo 
propriamente dito e quais as exigencias 
necessarias para disputa-lo. 
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FACA DO COMPUTADOR UM 

JOGADOR INTELIGENTE 

RAPOSA, GANSOS E XADR EZ 

TEORIA DE PROGRAMA CAO 

EXPLICANDO JOGO 



COMO RESOLVER PROBLEMAS 



OE PROGRAMACAO 



COMO AV AUAR POSI COES 

NO JOGO 

INICIE Q PRQGRAMA 




A Raposa e os Gansos e jogado nas 
casas brancas (verdes, nas ilustracoes) de 
urn tabuleiro de xadrez, Nele, temos 
uma raposa que inicia a disputa em urn 
lado do tabuleiro e quatro gansos que 
partem do lado oposto. Um jogador 
controla a raposa e outro, os gansos. 
Para a raposa, o objetivo do logo e pas- 
sar pelas posicoes das aves e atingir o la- 
do oposto; para os gansos, tudo se re- 
sume em encurralar a raposa. 

O jogo pode parecer desequilibrado, 
ja que se trata de uma disputa de qua- 
tro contra um; entretanto, o programa 
limita as investidas dos gansos para a 
frente, ertquanto da a raposa inteira li- 
berdade de movimentos para a frente e 
para tras. Alem disso, ele foi escrito de 
tal maneira que o computador pode 
joga-lo tanto com a raposa, como com 
os gansos ou mesmo sozinho. 



COMO RESOLVER OS PROBLEMAS 



A Raposa e os Gansos apresenta ou- 
tro ponto de semelhanca com o xadrez: 



aqui tambem o fator sorte nao e decisi- 
vo. Na verdade, o resultado depende 
apenas da pericia dos adversarios. Em- 
bora seja teoricamente possivel para o 
computador aprender a jogar por ten- 
tativa e erro, como um ser humano, es- 
ta nao e a melhor forma de resolver os 
problemas envotvidos no jogo — e, de 
qualquer modo, um programa assim 
concebido nao caberia no seu micro. 

Programar um jogo como A Raposa 
e os Gansos ou como o xadrez e um 
exercicio de inteligencia artificial. Para 
constituir um desafio a um jogador hu- 
mano, o computador precisa jogar in- 
teligentemente. Porem, a maquina nao 
tern condicoes de olhar para o tabulei- 
ro e captar as relaeoes espaciais entre as 
pecas, tal como nos o fazemos. Assim, 
as posicoes devem ser convertidas em 
valores numericos que possam ser ana- 
Usados pelo computador. 

Para escrever um programa que per- 
mita ao computador jogar de modo in- 
teligente, deve-se primeiro estudar a na- 
lureza do jogo. Esta determinara o tipo 
de programa. E importante, tambem, 
ter como referenda um metodo ideal, 
inteiramente documentado. Prestam-se 
bem a esse tratamento a resolucao do 
cubo magico, aberturas de xadrez etc. 
Em comparacao com tais exemplos, 
nossa tarefa e mais simples. 

Quando o elemento sorte esta presen- 
te, e possivel usar uma estrategia de mo- 
vimento unico — ou seja, o programa 
analisa as alternativas de jogo apenas 
um movimento a frente para, entao, es- 
colher a melhor jogada. O ludo, por 
exemplo, seria um candidato a essa es- 
trategia, exigindo rotinas de decisao re- 
lativamente simples. 

Em jogos em que a sorte conta pou- 
co ou nada, como em A Raposa e os 
Gansos, pode-se usar uma estrategia de 
movimentos consecutivos, onde se ana- 
lisa uma serie de passos adiante para in- 
vestigar os resultados possiveis. Ao en- 
contrar o movimento mais vantajoso, o 
programa o executa. 



AVAUACAO DA POSICAO 



Para que o computador possa deci- 
dir qua! e o melhor movimento entre va- 



rios possiveis, atribui-se um valor nume- 
rico a cada quadrado do tabuleiro. No 
nosso jogo, e vantajoso para a raposa 
estar o mais a frente possivel — tembre- 
se de que ela ganha o jogo ao atingir o 
lado oposto do tabuleiro. 

As colunas sao numeradas alternada- 
mente da esquerda para a direita e da 
direita para a esquerda. Assim, como os 
maiores niimeros se alternam a direita 
c a esquerda, a raposa tendera a se mo- 
ver em linha reta. 

Mas ha outro elemento que deve ser 
eonsiderado na avaliacao de posicoes. 
Os cinco quadrados brancos imediata- 
mente a frente da raposa tern um signi- 
ficado especial para o jogo. Se voce 
olhar para a figura 1, vera cinco qua- 
drados marcados de A a E. Se houver 
apenas um ganso em um desses quadra- 
dos, a raposa ganhara; se os gansos fo- 
rem dois, mas nao estiverem nas posi- 
coes A ou B, ou se eles forem tres, po- 
sicionados em ACD, BDE, ACE ou 
BCE, a vitoria tambem cabera a raposa. 

No inicio de cada turno, quando o 
computador joga tanto pela raposa 
quanto pelos gansos, o programa vai pa- 
ra uma sub-rotina que examina as posi- 
coes de todas as pecas e transforma es- 
sa informacao em um unico mimero, 
que o computador utiliza para escolher 
a melhor jogada. Quando a decisao e to- 
mada, o programa convene o mimero 
novamente em posicoes. 



BUSCA EM ARVORE 



Os movimentos possiveis de uma po- 
sicao do tabuleiro podem ser represen- 
tados por uma estrutura em "arvore", 
com ramificacdes a partir da posicao da 
peca. As alternativas de movimento a 
partir da posicao da peca da figura 2, 
por exemplo, estao ilustradas no dese- 
nho da figura 3. Se examinarmos um 
movimento adiante, a arvore ficara mais 
complicada, passando a incluir o segun- 
do nivel de alternativas, tambem indi- 
cado na figura 3. 

Observe que nem sempre teremos 
quatro "ramos" na estrutura, visto que 
a peca pode estar bloqueada por outra 
ou posicionada em um dos quadrados 
que limitam o tabuleiro. 



r 
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COMO ACELERAR PROGRAMA 



Devido ao grande niimero de opera- 
tes que devem ser feitas, o BASIC po- 
de se revelar demasiado lento. Mas, com 
o uso de determinados procedimentos, 
e possivel acelerar o programa. Inicial- 
mente, deve-se garantir que o programa 
nao continue avaliando o proximo pas- 
so do adversario se o seu movimento ja 
ganhou o jogo. Isso, no entanto, so eco- 
nomiza tempo no fim do jogo e nao du- 
rante o seu desenrolar. 

Em segundo lugar, e preciso levar em 
conta que uma mesma configuracao de 
posicoes pode ser encontrada freqiicn- 
temente, a partir de jogadas diferentes, 
Convem, assim, elaborar uma tabela de 
configuracoes comuns com os valores ja 
calculados associados a elas. Essa tabe- 
la fara com que o computador pare de 
analisar posicoes que se repetem. Tenha, 
porem, o cuidado de nao armazenar da- 
dos de uma posicao cuja avaliacao po- 
de ser mais rapida do que uma consulta 
a tabela. Teoricamente, o cmprego da 
tabela so e vantajoso nas situacoes em 



que o computador avalia tres lances 
completos — ou seja, tres jogadas de 
ambos os jogadores — ou mais. No en- 
tanto, a pratica tern demonstrado que 
a armazenagem s6 vale realmente a pe- 
na quando cinco ou mais lances estive- 
rem sendo analisados. 

Finalmente, ha a possibilidade de se 
utilizar o algoritmo alfa-beta, descober- 
to no inicio dos anos 60 por pesquisa- 
dores da area de inteligencia artificial. 
Recorre-se a ele sempre que, numa bus- 
ca em arvore, a analise envolve mais de 
urn m'vel. 

Voltemos a figura 3, que mostra os 
movimentos possiveis de uma posicao 
da raposa. O programa vai avaliar to- 
do o ramo A, depois o ramo B. O me- 
Ihor movimento sera armazenado pelo 
programa e comparado com os resulia- 
dos de cada ramo. Ao encontrar, em 
qualquer ponto, urn resultado pior do 
que um anterior, todo o ramo sera re- 
jeitado. 

Quando a arvore se torna mais com- 
plexa, o algoritmo alfa-beta e realmen- 
te util, podendo descartar cerca de 
99,8% das possibilidades em um esta- 
gio bem inicial, com um ganho de tem- 
po similar. Neste jogo, a arvore nao 
atingira tal nivel de complexidade. 




INICIE PROGRAMA 



Agora que voce ja tern uma nocao da 
teoria envolvida num jogo como A Ra- 
posa e os Gansos, passe a digitacao da 
primeira parte do programa, Ela se en- 
carrega de montar alguns desenhos, mas 
voce nao os vera por enquanto, se exe- 
cutar o programa, Nao se esqueca de 
gravar as linhas digitadas. 



30 DEF FN A(F)=INT CLN <F)/L2 
+.001) 
100 GOTO 2002 
2002 GOSUB 5000 
2006 BORDER 4: PAPER 4: CLS 
2008 PRINT AT 8.7; FLASH 1 ; "ACU 
ARDE A PREPARACAO" 
5000 FOR J=USR "A" TO U3R "D'+7 
i READ A: POKE J r A: NEXT J: RET 
URN 

5070 DATA 20.28.55,127.15,20.40 
,72.0,0,248.252,250.40,20.20,0. 
0,0.7,20 5,123,60.15.12.20,31,15 
2,248,216.48.224 
6000 LET SSU)-" 12 3 
4" 
6010 LET SS(2)-" 8 7 6 5 



9 10 



11 



6015 LET SS<3)»' 

12" 
6030 LET S$(4)-"16 15 14 13 

6040 LET SS(5)-" 17 18 19 2 

o- 

6050 LET SS(6)-"24 23 22 21 

m 

6060 LET SS(7)«" 25 26 27 2 
8" 

6070 LET SS(8)-"32 31 30 29 

H 

6100 RETURN 



Q 

5 CLS: PRINT £230 . "DEE ININD0 GRA 
FICOS'iGOSUB 4000 
10 SCREEN 1.0;GOTO 10 
4000 PMODE 3:PCLS:DIM GS(5),FX( 
4) , SQC10) 

4010 DRAWBM3,0C2FGR3FR5E3RED3F 
DGLGMFLNG2LH2LH" : PAINT (12, 5) ,2: 
PSET(0,1,4) :PSET(14,5,4) :PSET(1 
6,4.4) :GET (0 , 0) - (19 , 9) ,GS ,G 
4020 DRAWBM18.2 0C4GU3HLG2R2F2 
ND4R10ND4U2" :PAINT(10. 22) ,4:PSE 
T {2,2 1,1) : GET (0,20) -(19, 28} , FX , 
G 

4030 LINE(0.0)-(175,175) .PSET.B 
F:COLOR 3 : LINE (8 ,8) - { 167 , 167) ,P 
SET.BF 

4040 FOR K-8 TO 128 STEP 40:FOR 
L-28 TO 14B STEP 40 : PUT (L . K) - ( 
L+19.K+19) ,SQ, PSET:PUT{L-20.K+2 
0)-(L-l.K+39) ,S0.PSET:NEXT L,K 
4050 PUT(68,13)-(87,21) .FX.PSET 



4.060 FOR K-8 TO 128 STEP 40 : PUT 

(K,153)-(K+19,162) ,GS,PSET:NEXT 

40 70 THS-"R2ND6R2BR4D6BR4U3LBR6 

ND3BU2UBF3ND3R4D3BR5U6D3NR3F3BR 

4U3BU2UBF3BR2ND3R4D3BR7L3U3R3D6 

L3BE3BR4RBR5RBR5R" 

4080 MWS-*ND6F3RU3D6BR9L4U3R4D3 

BE3F3UE2BR3R3DL3D2R3BR6NU6E2F2N 

U6BR3U6D3R4D3BR7L3U3R3DL3BR7NUN 

R2D2BR8L3U3R3DL3BE4BR7R4D3L4D3" 

4090 WG3="RD6E2F2U6BR4D6BR4U3NL 

2BF3U3BU2UBF3BRNR3D3R3BR4NU6BR4 

U3NL3BE3BR8L4D6R4U3BR4D3R4U3L4B 

R8D3R4U3L3BR9BUL2D2R2D2L2BR9L3U 

3R3DL" 

4100 VS-"T402DEFBGACDEGGDCDE" 

4200 C-l:G-0: RETURN 

5000 FOR K-l TO 14 : PUT (200 . 5) - { 

210,15) ,SQ. PRESET: PLAVT50AC" :P 

UT (200 , 5) - (210 , 15) , SQ. PSET: PLAY 

-DA": NEXT: RETURN 



m 



5 CLS: COLOR 1 , 11 . 11 : SCREENO 
7 KEYOFF:GOSUB 4000 
10 GOTO 10 

4000 SCREEN2,2:FX=l:A3-"":FORK- 
2T05 :GS (K-l, 0)=K: NEXT: FOR K-ITO 
4:GS(K.ll-32-K:NEXT 
4010 FOR K=l TO 32: READ A:AS=AS 
+CHR3(A) : NEXT: FOR K=l TO 4:SPRI 
TES (GS(K.O) )=A$:NEXT:AS="" 
4020 FOR K-l TO 32:READ A:A$=AS 
+CHRS(A) :NEXT:SPRITES<FX)-AS: 
4030 LINE U0.10)-{185,185) ,6,B 
F:LINE (18,18)-{177.177) ,11, BF 
4050 FOR K=18 TO 138 STEP 40 : FO 
R L-38 TO 158 STEP 40 : LTNE (L,K 
)-(L+19.K+19) ,3.BF:LINE (L-20.K 
+20J-CL-1.K+39) , 3, BF: NEXT: NEXT 
4060 PUT SPRITE FX,(78,20),6 
4070 FOR K-0 TO 3 : PUT SPRITE GS 
(K+1.0) , U8+K*40,159) ,15: NEXT 
4080 VS = ' , T2D0O3DEFBCACDEGGDCDE" 
4100 DATA 0.0,12.60,12,6,6.7,7, 
3,3,1,0,0,1.2.0,0,0,0,0,8,8, 248 
.248. 248. 248, 240, 224, 192, 32, 16 
4110 DATA 0,0.0,2,2,6,62.27,3,3 
.2.2.2,2,0,0,0,0,0,0,0,4.8.24 8, 
240.240, J6, 16, 16,16,0,0 
4200 RETURN 
500 BEEP: RETURN 



HDG3 



63.55,45,45,45,45,62,63,63,63, 

6,62,62,126,73,73,37,37,36.0 

4030 FOR A = 768 TO 768 + 88: 

READ E: POKE A,E: NEXT 

4040 POKE 233,3: POKE 232,0 

40 50 RETURN 

5000 FOB K-l TO 



2 LOMEM: 16 384 

5 HOME : GO SUB 4 000: GOSUB 310 

10 END 



4000 DATA 02,00,06,00,42,00 
4010 DATA 45,62,63,63.46,45.4 
5,53,63, 63, .119,4.1 ,53.127.9,45.4 
5,45,62,63,63,55,45,45,53,63,63 
,14.4 5,62,55,55,119,73.40.60,0 
4020 DATA 45,45,44,44,44,54,5 
5.63,62.63,4 6,45,45,4 5,45.4 5,45 
,44.44,172,146,194,27.63,63,63, 



PR TNT CH 



RS <7) ; : NEXT : RETURN 



TABULEIRO 



310 LET F=FN A (ABS (P))-30: 
LET B=P/B(F): IF B<0 THEN LET 
B-B+BX: LET F-33-F 
320 LET C-B/B(29): FOR A=8 TO 
1 STEP -li LET RS{A)-BS(TNT (C 
)+l,(2-FN WfA))): LET C-(C-INT 

(C))*16: NEXT A 
330 LET RSHNT (F/4+.6))(FN C( 
F)+l TO FN C(F)+4)-FS(FN W(F/4 
-.2)+l) 

340 FOR A-l TO 8: PRINT AT 2*A 
,8; PAPER 7; S3 (A): PRINT AT 2* 
A+1,8: PAPER 7;RS(A): NEXT A: 
RETURN 



320 XI = 5/:X2 ■ 219 :Y1 ■ 0:Y2 
= I 59:GS = 1 :FX ■ 2 
330 HPLOT XI, Yt TO X2.Y1 TO X2 
,Y2 TO XI. ,Y2 TO XI , Yl 
.14 FOR I = TO / 
350 IN = 20 * (I / 2 < > INT 
(I / 2)) 

360 FOB J = TO 19 
FOR K = TO 3 
HPLOT 20 * I + J + XI + I . 
* K + TN) TO 20 * I + ,) + X 
1 , (40 * K + IN + 19) 

NEXT : NEXT ! HCOLO 



NEXT 



HE] 

310 HGH 
CALE= L 



370 

38 

(40 

1 + 

390 

R= 3 

395 DRAW FX AT XI + 3 * 20 + 3 

,Y1 + B 

400 FOR T = TO 6 STEP 2: DBA 

W GS AT XJ + I * 20 + B.Y1 + 7 

* 20 + 5: NEXT : RETURN 



As linhas que vao de 310 a 350 rnos- 
tram o tabuleiro com as cinco pecas em 
posicao. A sub-rotina e chamada uma 
vez a cada jogada, tanto pela raposa 
quanto pelos gansos. 

As instrucoes para os demais micros 
fazem parte de uma ouira sub-rotina de 
graficas. 



HCOLOH= 5: ftOT= 0: 
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Existem dois tipos de memoria auxiliar 
para micros: a fita cassete, barata e 
amplamente disponivel, e o disquete, 
poderoso, mas bem mais caro. Veja aqui 
como fazer a melhor escolha. 



Todos os computadores utilizam uma 
parte da memoria central, chamada 
RAM {Random Access Memory), para 
armazenar programas e dados que s&o 
entrados pelo teclado ou carregados a 
partir tie urn periferico de armazena- 
mento de dados, Esses dispositivos ex- 
ternos sao necessaries porque a in fur 
macao armazenada na memoria RAM 
desaparece quando o computador e des- 
ligado. 

Existem diversos tipos de dispositivo 
de memoria auxiliar destinados a micro- 
computadores. Os principals sao as/j- 
tas e os discos. Ambos possibilitam o ar- 
mazenamento permanente de informa- 
cao, pois seu funcionamertio e baseado 
no principio da gravacao magneiica. 
Ha, entretanto, uma grande diferenea 
entre eles no que diz rcspeito ao custo 
de aquisicao e a capacidade e velocida- 
de de armazenamento . 

Os discos, que constituent os dispo- 
sitivos mais sofisticados e caros da me- 
moria auxiliar, tloiam o computador 
pessoal de poderosos recursos, permit in- 
do a programacao de aplicacoes mais 
complexas, como bancos de dados de 



uso profissional e sistemas de controle 
para pequenas empresas. 



ARMAZENAMENTO EM FITA 



O periferico de armazenamento de 
dados mais utilizado em computadores 
pessoais e o gravador comum de fita cas- 
sete, que alia conveniencia operacional 
e baixo custo. Para a maioria dos usua- 
rios domesticos, este e o unico fator que 
conta. 

O gravadores de audiocasseie existen- 
tes no mercado sao, quase todos, bas- 
lanle adequados para essa finalidade. A 
vantagem adicional e que existe uma 
enorme quantidade de software de pre- 
co acessivel disponivel em fita cassete, 
para a maioria dos computadores pes- 
soais (sobretudo na area de jogos e en- 
tretenimento). 

A tecnologia dos gravadores-cassete 
e muito simples. Seu uso com compu- 
tadores requer apenas que urn sinal au- 
divel seja gerado pela interface adequa- 
da para a gravacao na fita. Assim, para 
que o sisiema funcione a contento, bas- 
ta montar uma conexao entre o compu- 
tador e o gravador e ajustar corretamen- 
te os ru'veis de volume e tonalidade. Com 
alguns cuidados periodicos de manuten- 
cao, o usuario nao tera problemas por 
longo tempo. 

Bern, isto e o que acontece na teoria! 
Na pratica, contudo, nao e tao facil con- 
seguir a combinacao ideal entre o peri- 
ferico e o micro. 



QUAUDADE DE GRAVACAO 



Uma boa maneira de contornar difi* 
culdades mais serias consiste em com- 
prar urn gravador apropriado para mi- 
crocomput adores (data recorder). Eles 
diferem dos gravadores comuns por dis- 
porem de circuitos etetronicos internos 
que processam sinais mats "limpos" de 
transmissao digital. 

Gravadores especiais, como, por 
exemplo, os destinados a computadores 
da linha MSX, dao menos problemas na 
gravacao e leitura de dados digitals e, 
tambern, possibilitam uma conexao 
mais simples com o computador. Nem 
esses aparelhos, porem, estao totalmente 
livres de falhas, pois e o sistema de gra- 
vacao em fita, em si, que apresenta cer- 
tas desvantagens tecnicas. 

O principaJ ao se usar fita e aumen- 
tar ao maximo a qualidade de gravacao: 
esta e uma area, portanto, sobre a qual 
o usuario pode exercer algum controle. 
Convent lembrar que, mesmo quando a 
gravacao foi bem feita, o sinal deteriora- 
se ao ser lido por urn gravador de baixa 
qualidade. O resultado e pior ainda 
quando sc tenia gravar alguma coisa 
com um aparelho que esteja em mas 
condicoes. 

A qualidade da fita tambern e muito 
importante. Basicamente, deve-se evitar 
a tentaeao de utilizar uma Fita velha, so- 
bretudo se for de longa duracao (C-90 
ou C-120). 

Ha um conflito aqui, pois, como a 
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ARMAZENAMENTO EM FITA 



QUALIDADE DA GRAVAC AO 

TAXA DE TRANSMISSAO 

ALCAS DE FITA 

ACESSO SERIAL 



ACI ONADORES DE DISCOS 

S ISTEMA OPERACIONAL 

DE DISCOS 

INTERFACES 



TIPOS DE SOFTWARE 



capacidade da memoria e limitada pelo 
metodo de gravacao empregado, seria 
desejavel amplia-la, usando-se fitas de 
maior duracao, Estas, porem, sao bem 
inais Tinas do que as C-30 e, em cot 
qiiencia, podem sofrer alongamo 
por efcito do vaivem coniinuo e pela 
forca relativamente grande exercida pelo 
rebobinarnento e avanco nipidos. 

O alongamento determina perda de 
bytes na fita e varia*;6es na amplitude 
do sinal. Ambos os efeitos sao desastro- 
sos, no que diz respeito as caracteristi- 
cas de leitura por computadores: urn 
byte perdido invalida a leitura de todo 
um programa, por exemplo. Na melhor 
das hipoteses, isto pode levar a earrega- 
tneotos irregulares. Na pior das hipote- 
dados sao perdidos durante a 
eravacao! 

Uraa fita C-30 e a melhor opcao pra- 
tica: ela suporta quinze minutos de gra- 
lo de cada lado, o que e raais do que 
suficiente para armazenar progranuw 
muito extensos (ate 64 Kbytes) na maio- 
ria dos computadores, Alguns micros 
das linhas Sinclair e TRS-80, emreian- 
io, tern baixas veiocidades de transmis- 
sao (300 baud), podendo exceder a ca- 
pacidade da fita para dados e progra- 
mas. Nesse caso, recomenda-se usar fi- 
tas C-60 de boa qualidade, mas sempre 
com muito cuidado. 

Um programa de 32 Kbytes, por 
exemplo, gasta somente tres a quatro 
minutos dc fita nos micros das linhas 
TRS-Color e MSX, cerca de seis minu- 
tes nos micros da linha Spectrum, e qua- 



se quinze minutos no ZX-81 . Faz mais 
sentido, portanto, recorrer a fitas dc 
curta duracio, gravando-se apenas um 
ou dois programas de cada lado, com 
uma duplicata, para fins de seguranca. 

e procedimento nao so favorece a 
conservacao da fita como tambem tor- 
na muito mais faeil verificar ondc csia 
o inicio de uma gravacao. 

Existem fitas cassete de aita qualida- 
de, feitas especialmeme para gravacao 
de dados digitais. E!as sao normalmen- 
te disponiveis em ires duracoes: CIO, 
C15 e C20. E sempre bom testa-las an- 
tes de compra-las em grande quantida- 
de, pois sao mais caras do que as fitas 
comuns. 



TAXA DE TRANSMISSAO 



Os problemas com fitas cassete ficam 
bem mais series quando a laxa de trans- 
missao de dados entre gravador e com- 
putador e mais alta. A taxa de transmis- 
sao, ou seja, a velocidade com que os 
bytes passam do com putador para o 
gravador e vice-versa, e medida em 



bauds. Um baud, a grosso modo, cor- 
icsponde ao niimero de bits transmiti- 
Jo.s por segundo (na realidade, o nume- 
ro e calculado com base em um esque- 
nia um pouco mais complicado). 

Quanto mais aha for a taxa de trans- 
missao utilizada pelo computador, me- 
lhor devera ser a qualidade do gravador 
e da fita cassete. Uma fita pode funcio- 
nar pei Teiiarnente bem com um ZX-81 
ou TRS-80 Modelo I, mas I'alhara se 
usada com um TK-85 com funcao 
speed, ou com um MSX. O mesmo pro- 
blema ocorrera ate com computadores 
mais lentos, em determinadas situacoes 
— por exemplo, na gravacao de jogos 
com rotirtas proprias de carregamento 
rapido. 



ALCAS DE FITA 



Para evitar os transtornos causados 
por gravadores convencionais de fita 
ete, alguns fabricantes desenvolve- 
ram um sistema diferenic: o cassete de 
fita sem fim (alc;a de fita). Os mais co- 
nhecidos sao o Microdrive's o Wafadri- 
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ve, para os micros da linha Sinclair 
Spectrum, mas existem diversas unida- 
des disponiveis para computadores de 
outras marcas, usando interfaces padro- 
nizadas, como o RS-232C. Dispositivos 
desse tipo, infelizmente, nao sao encon- 
trados no Brasil. 

O acionador de alca de fita {tape 
loop) e um gravador que usa um casse- 
te especial, com uma bobina sem fim 
(em alca), A fita desloca-se apenas em 
uma direcao, mas muito rapidamente, 
de maneira que o ponto de initio de um 
programs e atingido sem que seja neces- 
sario rebobinar a fita. Alem de econo- 
rnizar tempo, o processo tambem pro- 
tege a fita do desgaste provocado pelo 
avanco e rebobinamento rapidos dos 
gravadores convencionais. 

Um Microdrive, por exemplo, com 
sua vetocidade e capacidade (cerca de 
100 Kbytes), permite que se eliminem to- 
dos os problemas das fitas convencio- 
nais. Seu desempenho, em alguns casos, 
aproxima-se do de acionadores de dis- 
quetes, muito maiores e mais caros. 

Ha algumas desvantagens, entretan- 
to, nesse tipo de dispositivo: os cartu- 
chos de fita sao bem mais caros, a ofer- 
ta de software no formato adequado 6 
menor e, mesmo com maior velocidade 
e capacidade, ele nao se presta para mui- 
tas aplicacoes nos campos educacional 
e profissionaJ. 



ACESSO SERIAL 



Em quaiquer sistema que utiliza fita, 
a transferencia de dados entre gravador 
e computador e realizada sob a forma 
de uma sequencia continua de bytes, ou, 
em outras palavras, como uma fila In- 
diana, do primeiro ao ultimo byte. Pa- 
ra levar os dados ou programas de vol- 
ta a memdria, e preciso achar o ponto 
de initio, e carregar a partir daf. Esse 
tipo de processo e chamado de acesso 
serial. 

Para aplicacoes mais simples, como 
jogos ou outros programas pequenos, o 
metodo nao apresenta desvantagens se- 
rias, pois o programa precisa ser locali- 
zado e carregado apenas uma vez. En- 
tretanto, oferece inconvenientes para 
aplicacoes em que, com freqiiencia, o 
computador precisa carregar dados ou 
segmentos de programa, em ordem di- 
ferente daquela em que estao gravados 
na fita. t, o que ocorre com as aplica- 
cdes de bancos de dados. Um dispositi- 
vo de alca de fita pode, quando o volu- 
me de dados e pequeno, "simular" um 
disquete, atraves da marcacao de "blo- 
cos" fixos de dados na fita e da locali- 



zacao rapida dos mesmos por um soft- 
ware especial. Porem, havendo um 
grande volume de dados, a unica solu- 
cao e o acionador de disquetes. 



ACIONADORES DE DISCOS 



Os acionadores de discos sao os dis- 
positivos mais rapidos de memdria au- 
xiliar para microcomputadores. O tem- 
po medio necessario para a localizacao 
de blocos de dados no disquete e medi- 
do, muitas vezes, em milesimos de se- 
gundo. A rapidez da gravacao e a lei- 
tura de programas torna o dispositivo 
atraente principalmente para quern nao 
consegue suportar a lentidao do CSA- 
VE e CLOAD dos gravadores. 

Os discos magn&icos sao, alem dis- 
so, muito mais confiaveis e seguros do 
que as fitas, desde que se tomem algu- 
mas precaucoes elementares. A perda de 
bytes por falhas no sistema de leitura ou 
gravacao £ rara e, quando ocorre, nem 
sempre o arquivo inteiro ou o disco fi- 
cam inutilizados. 

Entretanto, o uso de discos impoe 
uma nova serie de tarefas e procedimen- 
tos basicos, que exigem um grau de me- 
ticulosidade e precisao desnecessario 
com as fitas. Se voce n&o tomar cuida- 
do e utilizar inadequadamente os co- 
mandos de manipulacao de arquivos em 
discos, disponiveis nos sistemas opera- 
cionais, as conseqiiencias poderao ser 
desastrosas. Existe, por exemplo, um 
cum an do que apaga um disco inteiro, 
em um piscar de olhos. 

A i'antastica capacidade de armaze- 
namento dos discos magneticos e uma 
forte razao para que se redobrem as pre- 
caucoes. Existem modelos com 10 a 20 
megabytes de capacidade total, ou seja, 
aptos a armazenar ate vinte milhdes de 
caracteres (o que equivale, mais ou me- 
nos, a quantidade de texto de uma en- 
cidopedia de trinta volumes!). Mais co- 
mumente, 1 entretanto, a capacidade dos 
disquetes disponiveis para computado- 
res pessoais e bem mais modesta: algo 
entre 150 a 360 Kbytes. Mas, mesmo as- 
sim, corresponde a uma grande quanti- 
dade de dados valiosos. 

Infelizmente, os disquetes sao vulne- 
raveis a dobras, a arranhoes e a agres- 
soes fisicas do ambiente, tais como umi- 
dade e sujeira. Alem disso, sao sensiveis 
a campos magneticos causados por alto- 
falantes, aparelhos de TV, motores de 
geladeira etc. 

Para armazenamento de longa dura- 
cao, a fita constitui um candidate bem 
melhor do que o disco. Assim, grandes 
empresas costumam manter seus arqui- 
vos vitais em bobinas de fitas, confian- 




do aos discos apenas as operacoes dia- 
rias, mais rapidas. 

Por todas as razoes expostas, 
recomenda-se aos usuarios de discos que 
facam, regularmente, c6pias de scguran- 
ca (back-up) dos arquivos de dados e de 
programas. A freqiiencia dessa opera- 
cao depende muito da quantidade de in- 
formacoes geradas ou alteradas. 



COMO FUNCI0MA UM ACIONADOR 



O funcionamento de um acionaaor 
de discos nao e muito diferente do fun- 
cionamento de um gravador de fitas. O 
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sistema de leitura e gravacao trabalha 
sobre urn disco, chato, recoberto de ma- 
terial ferromagnetico, como a fita, s6 
que obedecendo a padroes de qualida- 
de muito mais rigorosos. 

Como o gravador, o acionador de 
discos possui uma cabeca de leitura e 
gravacao, que e mantida em contato 
com a superficie magnetlca. A diferen- 
ca e que a cabeca tambem pode ser mo- 
vitnentada, pulando de trilha para tri- 
lha da mesma maneira que o braco de 
um fonbgrafo. Assim, com o disco ro- 
lando em alta vclocidade, alinge-se ra- 
pidamente qualquer um de seus pontos. 

Antes de sua utilizacao, o disco 6/or- 



matado, ou seja, sua area total e dividi- 
da em trilhas concentricas e estas, por 
sua vez, em seg memos iguais, chamados 
de setores. Os setores se subdividem em 
blocos, cada qua! capaz de armazenar 
entre 128 a 256 bytes de informacao. Es- 
ses blocos podem ser imaginados como 
se fossem as "gavetas" de um escaninho. 

Um programa chamado sistema ope- 
rational de discos (DOS) possibilita a 
gravacao ou leitura de informacoes nos 
blocos (cada um tern um endereco dis- 
tinto, como na RAM). O DOS e um re- 
quisite essencial para a operacao de um 
acionador de discos. 

A cabeca de leitura e gravacao pode. 



O disco e formatado antes de ser usado, ou 
seja, i dividido em trilhas e setores. 
Cada st-tor tern a capacidade de 256 bytes. 



ser direcionada pelo DOS, de modo a se 
posicionar sobre qualquer setor na su- 
perficie do disco, com uma velocidade 
bastante grande. Por isso, o disco mag- 
netico € um dispositivo de acesso arbi- 
trario, muitas vezes mais rapido do que 
o acesso serial ou seqiiencial da fita. 
Ocorre que ele tambem e um dispositi- 
vo de acesso serial, so que limitado a um 
setor por vez. Isso torna o sistema mui- 
to mais veloz, flexivel e poderoso do que 
o baseado em fita. 



TIPOS DE DISCO 



Os discos magneticos para computa- 
dores dividem-se, basicamente, em dois 
tipos: os discos rigidos e os discos Jle- 
xivtis. 

O disco rigido, de preco bem mais de- 
vado do que o flexivel, e confecciona- 
do em metal, e, em geral, nao e inter- 
cambiavel, ou seja, permanece sempre 
dentro do acionador. A cabeca nao en- 
costa em sua superficie, mas paira a al- 
guns milesimos de inilimetro da mesma. 

Gracas a essa caracteristica, o desgas- 
te desse disco e nulo, e a densidade da 
gravacao, muito maior. Atualmente, os 
discos rtgidos para micro — tambem 
chamados discos Winchester — tern ca- 
pacidades entre 5 a 40 Mbytes, depen- 
dendo do modelo. 

O disco flexivel, genericamente deno- 
minado disquete (ou floppy), e feito de 
plastico e protegido dentro de um enve- 
lope semi-rigido, lubrificado interna - 
mente. Pode ser adquirido em tres ta- 
manhos: 8 polegadas (19 cm), 5,25 po- 



legadas (12,5 cm) ou 3,5 polegadas (8,5 
cm) de diametro. O mais utilizado em 
computadores pessoais ainda e o de 5,25 
polegadas, chamado de minidisquete, 
embora os microdisquetes (3,5 polega- 
das) estejam se tornando cada vez mais 
populares. Estes sao embalados em car- 
tuchos n'gidos, o que lhes confers van- 
tagens marcarttes quartto ao manuseio 
e seguranca. Sua capacidade e tambem 
bem maior, devido a superioridade na 
densidade de gravacao. 

A velocidade de rotacao de urn dis- 
co, seu tamanho, tipo de superficie e a 
presenca ou nSo de uma segunda cabe- 
ca do outro lado do disco condicionam 
a capacidade e velocidade de acesso dos 
diversos modelos existentes. O usuario 
deve, portanto, levar em conta todos es- 
ses fatores, se pretende escolher o acio- 
nador de discos mais adequado as suas 
necessidades. 

Os discos magneticos classificam-se, 
ainda, em duas outras categorias: a ca- 
legoria dos que so podem ser gravados 
em um lado (discos de face simples) e 
a dos que permitem a gravacao nos dois 
iados, simultaneamerite (discos deface 
dupla). 

A densidade de gravagao tambem di- 
ferencia os discos. Os mais baratos e de 
menor qualidade tern densidade simpler. 
sua capacidade totale bastante restrita. 
Os de maior capacidade e velocidade de 
transmissao tem densidade dupla. Final- 
mente, existem os discos de densidade 
quddrupla, com o dobro do niimero de 
triihas dos outros discos. Estes utilizam 
uma tecnica de pulsos de gravacao di- 
ferente da tecnica dos demais e oferecem 
o grau maximo de capacidade e veloci- 
dade. Naturalmente, o preco do disque- 
te aumenta de acordo com sua capa- 
cidade. 

Para maior seguranga, devem ser 
usados os disquetes com a especificacao 
correta para cada densidade. Mas mui- 
tos usuarios que trabalham com aciona- 
dores de face simples (Iinha Apple, por 
exemplo) costumam utilizar tambem o 
outro lado disponivel no disquete, fa- 
zendo um pequeno orificio quadrado na 
margem nao perfurada do envelope. Tal 
procedimento deve ser evitado no caso 
de discos especificados para densidade 
simples. Alem disso, convem levar em 
conta que detritos oriundos da perfura- 
cao podem danificar o disco e, ate mes- 
mo, a cabeca do acionador. 



SISTEMAS OPEflACIONAIS 



O controle dos acionadores de discos 
exige um software especial. Este e for- 
necido junto com o acionador, forman- 



do com eie uma unidade inseparavel na 
utilizacao por um computador. Essen- 
cialmente um sistema operacional, o 
software gerencia todos os processos de 
localizacao de informacao e de transfe- 
rencia entre computador e disco. 

Em geral, o sistema operacional de 
disco (DOS) nao reside na memoria 
ROM permanerite do computador, pre- 
cisando ser carregado na RAM a partir 
do proprio disco, antes de ser ativado. 
Assim, uma parte da RAM e utilizada, 
ficando menos disponivel para os pro- 
gramas e dados do usuario. 

Alguns computadores pessoais po- 
dem usar mais de um sistema operacio- 
nal com o mesmo acionador de disque- 
tes. Certos sistemas operacionais, por 
outro lado, tem mais comandos ou, ain- 
da, s3o mais poderosos e flexiveis do 
que outros. Mas e preciso cautela na es- 
colha, pois a formatacao imposta ao dis- 
co muitas vezes varia entre sistemas ope- 
racionais, Em consequencia, o usuario 
nao conseguira utilizar programas fei- 
tos para um DOS, se tiver carregado 
um DOS diferente no computador. Na 
maioria das vezes, porem, nao ha sequer 
a possibilidade de escolha entre varios 
tipos de DOS, pois s6 existe um para 
aquela marca de computador. 



INTERFACES E CONEXOES 



Se voce tem a intencao de adquirir 
um ou mais acionadores de discos, con- 
sidere cuidadosamente se a unidade em 
vista e realmente compativel com sua 
maquina. Alem de um DOS adequado, 
e necessario tambem escolher um disco 
com interface que se adapte a seu siste- 
ma. Consulte os fabricates — do com- 
putador e da unidade de discos — e pro- 
cure aconselhar-se junto a colegas e co- 
nhecidos que ja tenham tido sucesso na 
compra de uma unidade de disco para 
um computador igual ao seu. 



SOFTWARE PARA DISCO 



Comprar um acionador de discos po- 
de ser muito bom para irtcrementar seu 
sistema, mas, para uma boa escoiha, 
convem ter claro o que voce pretende fa- 
zer com ele. Quer esteja pensando em 
desenvolver seus prbprios programas — 
em Assembler, BASIC, PASCAL ou 
OLilra linguagem de programacao — , 
quer pretenda apenas utilizar "pacotes" 
prontos de software, verifique primei- 
ro se as ferramentas de programacao ou 
os prdprios programas estao disponiveis 
em quantidade e qualidade para o siste- 
ma que voce tem em mente. 



Sistemas baseados em microdisque- 
tes, por exemplo, sao recentes no mer- 
cado, mesmo em termos internacionais, 
e ainda existe muito pouco software pa- 
ra esse formato. Tambem e pequena a 
oferta de software prdprio para sistemas 
de disquetes para a Iinha MSX. A me- 
dida que um sistema vai se difundindo, 
porem, essa situacao tende a mudar. 
Mas micros implantados ha mais tem- 
po no mercado — como o Apple e o 
TRS-80 — terao sempre maior varieda- 
de de software que os demais. 

Existe ainda a arternativa de se trans- 
fers r software de um formato para ou- 
tro. Certos programas comereialmente 
disponiveis, por exemplo, lornarn pos- 
sivel copiar software de fita para disco; 
paralelamente, alguns sistemas opera- 
cionais reconhecem discos de diferentes 
densidades, e assim por diante, Em um 
prdximo artigo trataremos em detalhes 
desse assunto. 



COMO ESCOLHER? 



O custo e, certamente, um fator bas- 
tante significative no momento de de- 
cidir entre um sistema baseado em fita 
e oulro baseado em disco. Muitas das 
vamagens dos discos nao sao importan- 
le.s para usuarios domesticos interessa- 
dos apenas em aplicacoes como jogos. 
Para a maioria dos computadores pes- 
soais nao existem, em disquete, muitas 
opcoes de programas recreativos ou de 
videogames, e o pouco que se encontra 
custa mais caro do que a mesma /ersao 
para fita. Em contrapartida, ha a pos- 
sibilidade de que a versao para disquete 
seja mais sofisticada. 

As unidades de disco sao muito mais 
caras do que as de fita, custando mais 
do que o proprio computador. As vezes, 
o preco nao inclui o cabo de ligacao, que 
tambem e caro, 

E preciso considerar, ainda, o custo 
do suporte de informacao. O preco de 
um disquete e muitissimo mais elevado 
do que de uma fita cassete de boa qua- 
lidade. Normalmente um disquete de 
densidade quadrupla custa quatro ou 
cinco vezes mais do que um de densida- 
de simples. No entanto, deve-se levar em 
conta que, ao contrario da fita, o dis- 
quete permite aprovcitamento total de 
sua capacidade. 

Ja os discos rfgidos sao tremenda- 
mente caros e liteis apenas em aplicacoes 
mais profissionais. E claro que seria 
muito bom ter todo o seu software dis- 
ponivel instantaneamente no mesmo dis- 
co, e carrega-lo em um piscar de olhos. 
Mas sera que isso vale o preco de um 
Winchester? 
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microcomputadores compativeis com as sete principals ] Sinclair zx-bi 
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jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 
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PROGRAMACAO BASIC 

Mensagens secretas: como produzir seus pr6prios codigos. 
C6digos Morse, de Julio Cesar e de posigao. Cifra Saint Cyr. 

PROGRAMACAO DE JOGOS 

A rotina principal do caca-nfqueis. Resultados premiados. 
Como segurar, empurrar e apostar. Efeitos sonoros. 

PROGRAMACAO BASIC 

Armazenagem de numeros. Ponto flutuante. Numeros negativos. 
PEEK na memoria. Formatacao com PRINT USING. 
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